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MODULE RM3SIDXSP (LANGUAGE fe, 15952) ’ 
T = 'v04-000' 


; 1 001 

; ¢ Oe IDEN 

; 88 ) = 

ee 004 | BEGIN 

: $ 0006 } PRES ESESCSOLS ITEC EES ETE ET TTT ETT TTT TPP eee cece eee c cece cic i ci citer i iii. 
: :* - 
; 8 Ha 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
H 9 009 1 $* DIGITAL EQUIPMENT EORPORATION, MAY .ARD, MASSACHUSETTS. * 
: 19 Boi% ! = ALL RIGHTS RESERVED. * 
; ; * 
; \§ Beg 1 !* THIS SOFTWARE IS FURNISHED U'NWER A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH ® 
H 15 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 Borg 1 !®* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i? id EA : ” TRANSFERRED. * 
3 ‘® * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 O53 : es CORPORATION. * 
3 '® ® 
; $§ $053 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Pi 0025 1 is * 
: 26 0026 1 is * 
: e7 QO27 1 eee eee eee RARE E RR EERAEAE RE EAEREAEETATEEEEEEETEAAAAAAAAREAEREAEARE RRR EE 
; oo 0028 1 

; $3 5 94 1 !44 

; 0 0030 1! 

; 4 Boe, : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

3 3§ $038 1 ! ABSTRACT: 

; 0034 1! Split SIDR data level or any index levei 50-50 

; 35 0035 1! 

; 36 0036 1! 

> 0037 1 ! ENVIRONMENT: 

; » 0038 1! 

; 39 0039 1! VAX/VMS OPERATING SYSTEM 

; 0040 1! 

3 41 0041 1 !-- 

3 *g anes 1 

; 4 004 1! 

; 4G 0044 1 ! AUTHOR: Christian Saether CREATION DATE: 1-AUG-78 10:18 
: 5 0045 1! 

; 46 Bose 1} 

3 47 ape 1 ! MODIFIED BY: 

; «648 048 1! 

3; «649 0049 1! v03-015 MCNO004 Maria del C. Nasr 04-Apr-1983 

3 ey bees : } Change Linkage of RMSCOMPRESS_KEY. 

co B926 1 7 v03-014 MCNO003 Maria del C. Nasr 22-Mar-1983 

; 27 O227 : More changes in the Linkages 

s $5 boss 1! v03-013 MCNOO02— _ Maria del C. Nasr 28-F eb-1983 

3 28 Bpe$ ! Reorganize linkages 
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y0z000 127867 382 968i AMS SREIRMESTOXSP 63204 . (1) | 

; 8 038 1! v03-012 TMKO010 Todd M. Katz 05-Nov-1982 : 
3 9 8 1} Document SIDR buck ss splits, much as index bucket splits were ; 
: oY re ! } documented by TMKO00S. | : 
3; § G08 1} v03-011 TMKO009 Todd M. Katz 02-0c t-1982 : 
3; 6 6 065 1! I made a mistake when I re-wrote the routine RMSEXT_HIGH_KEY. : 
; 664 0064 1! If the bucket whose key is to be extracted is a prologue 3 index ; 
; BRe2 1! bucket with non-compressed keys, then there is no need to scan : 
; 66 B98 1! the bucket to position to the high key of the bucket because all ; 
3; OF 0067 1! the records are of a fixed size. I made an error in een ing this ; 
: 68 0068 1! check. What I ended up peoen ae for was for a prologue 3 index : 
5 9 34 7% bucket with compressed keys rather than a prologue 5 bucket with ; 
; £9 Baoy : non=compressed keys. ; 
‘i = OOrs 1! v03-010 TMK0008 Todd M. Kate 14-Sep-1982 ; 
my : 0075 1! Add su port for prologue 3 SIDRs. This involves modifications ; 
; 74 0074 1! to RMSSPLIT_EM, RMSCOMP_SPL_PNT, and RMSMOVE_VBN, and the : 
; 3 0075 ; re-write of RMSEXT_HIGH-KEY. : 
: 7 0077 1! v03-009 KBT0233 Keith B. Thompson 23-Aug-1982 | 2 
3 re Boe : } Reorganize psects | ; 
; 0080 1! v03-008 TMKO007 Todd M. Katz 02-Jul-1982 : 
; «8 0081 1! Implement the RMS cluster solution for next record Petit ientne- : 
3.6 CB BoEs 1! This means that code must be added to reassign the ID's in 3 
; 8 0083 1! the new SIDR bucket following a SIDR bucket split instead of | ; 
; BG 0084 1! calling the routine RMS$ID_AND_NRP to do this (because that ; 
3; 89 0085 1! routine along with all the others in the module RM3NRP are | : 
; 86 0086 1! disappearing. F 
3; 87 0087 1! 3 
; «6288 0088 1! v03-007 TMK0006 Todd M. Katz 16-Jun-1982 F 
; =6«889 0089 1! Make a change to the routine COMP_SPL_PNT which affects how the : 
; 0090 1! split point of a prologue 3 index bucket with compressed keys $ 
; (91 0091 1! is calculated. In such a bucket, the keys are separate from : 
.. ¥ 0092 1! the VBNs, and only the Sere contribute to the end-of-bucket : 
ae . 0095 1! calculation. However, both the keysize and the VBN size of the 3 
; 9 0094 1! new index record(s) to be added where influencing where the : 
; 0095 1! split point should be instead of just the key size. This is é 
; «696 0096 1! wrong, and lead to a nonoptimum calculation of the index § 
5 OF 0097 1! bucket split point. Change this such that ong the key size of ; 
; 0098 1! the new record(s) influences where the index bucket split point 3 
; £99 0099 1! is computed to be. ; 
; 100 0v00 1! 3 
3; 6101 818) 1! v03-006 1fMK0005 Todd M. Katz 15-Jun-1982 3 
3 196 102 1! Add documentation at the fron of the routine for index bucket 3 
: + 810 : update and split cases. : 
; 105 0105 1! v03-005 TMKO004 Todd M. Katz _ 11-Jun-1982 ; 
: 106 biog . % when the code was added for the pissing index bucket split : 
s 107 107 1! cases in TMKOO02, it accidently broke the two-pass multi-bucket 3 
; 108 0108 1! split cases where one of the two new index records goes in 3 
3; 109 0109 1! each of the index buckets resulting from the split. The reason 3 
3 110 biig 1! for this is that I set the position of insertion of the new 3 
ae Be 71. 33 records in the new (right) index bucket, IRB$W_POS_INS, to be : 
3 ie bii¢ 1! at the beginning of the bucket, before that parameter could 3 
im: git '} be used to diffrentiate between the two two-pass multibucket : 
s 916 1144 #1! ndex bucket split cases (both in one bucket vs. one in each). : 


| #11 | 
RM3SIDXSP 16-Sep-1984 02:01:5 AX-11 Bliss-32 V4.0-74 Page 3) 
yoe-000 12-88-1382 96:81 i2 CAMS .SRC RM SToxeP 763964 ° (1) | 
The end result was that no matter what two-pass multi-bucket 

split case had occurred, it was handled the same - as a both 

in the same bucket two-pass multi-bucket split case. In the 

case of the the other two-pass multi-bucket oat t case this 

would result in failure to insert a new key-VBN pair into the 

new (right) index bucket. The fix simply is to set 
IRB$W_POS_INS after the differentiation has been made as to the 


type 9f two-pass multi-bucket index bucket split that had 
occurred. 


V03-004 TMKO003 Todd M. Katz 26-May-1982 
Performance eamenconent to the routine EXT_HIGH_KEY. This 
routine extracts the high key of the old (Teft) bucket for 
use in updating the index level above. This extraction must 
include the key's re-expansion if index key compression is 
enabled. The way this routine is currently written mandates 
two complete passes down the index bucket - one to find the 
nage wt and the other to uncompress it. By setting the field 
IRBSL_LST_NCMP, during the first scan, to the Last 
noncompressed index key in the entire index bucket it is 

possible to cut down on the amount of the index bucket which 

is necessary to scan in order to re-expand the high key. 


v03-003 TMK0002 Todd M. Katz 11-May-1982 

Add support for the two two-pass index bucket split cases 
which currently are not supported and return an alternate 
success status of index not updated. These two-pass index 
bucket split cases are: two-pass two-bucket wit enety 
bucket split and two-pass multi-bucket with empty bucket 
sot its In the case of the former split case, the routine 
RMSINS_REC will only be called once since there is only a 


need to swing the level-one index downpointer of the new | 
index bucket’s low-order index record from the leftmost data 

bucket to the rightmost new bucket. In the case of a two-pass 
multi=bucket with empty bucket split case, the routine 
RMSINS_REC is called twice. First, the new key in heyoutior 2 
is inserted into the old (left) index bucket along with the 
VBN that corresponds to it (in IRBSL_VBN_MID). The second time | 
this routine is called the VBN downpointer of the new (right) 
index bucket's low-order index record is swung from the 
leftmost to the rightmost bucket. 


v03-002 TMKO001 Todd M. Katz 21-Apr-1982 
The routine COMP_SPL_PNT is responsible for computing the 
index bucket split point. Under certain circumstances, it 
will sometimes have to find the record size of the index | 
record(s) which are to be inserted. This record size comes in 
two parts - key and VBN, which must be added together. Because 
the macros used to define the VBN offsets were wrong, this 
mean't that when the total size of the new record(s) was 
computed, it was computed incorrectly. This could lead to the 
split point being incorrectly calculated, and to a RMS 
signalled bugcheck in at least one case. To fix this problem, 
I fixed the macro definitions, and but them in ONE place. 


v03-001 MCNO001 Maria del C. Nasr 25-Mar-1982 
Use macro to get key buffer address. | 
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v02-019 KPLO001 Peter Lieberwirth 2-Mar-1982 
Define Linkage omitted in v02-018 
TMK0004 Todd M. Katz 01-Mar-1982 
Add support for rear-end truncation of keys in the index 
of pre ogue 3 files with compressed keys. This involves changes 
to RMSSPLIT_EM. When an index bucket split occurs, the new 


(right) bucket is constructed without any thought as to yrere 
the new index records will be inserted. If the prologue 3 file 
contains compressed index keys, then the compression of the 
first ner in the new bucket must be redetermined. At the very 
least, the key must be expanded so that it is zero front 
compressed. As any change in front compression may affect 
rear-end truncation, the entire compression of the first key 
must be redetermined. 


TMKO0003 Todd M. Katz 12-Feb-1982 

It is possible for the two-pass two-bucket split case to be 
confused with the two-pass multibucket split case where both 
keys are to go in the new bucket. This will occur when each 
index bucket can only hold two keys, an index bucket containin 
two keys (the second of which is nonzero front compressed) mus 
split to make room for an additional key, and the insertion 
point is computed to be at the peg tenons of the bucket. In this 
case, both the insertion point and the split point are at the 
be sentng of the bucket. Since RMS doesn't always check for a 
multibucket case when it wants to special case the special 
multibucket split case described above because it wrongly 
assumes that the insertion point can my | be at the beginning 
of a bucket in the speical two-pass multibucket split case, 
the two-bucket case can be confused with the multibucket case. 
Add checks for a multibucket split in all instances when it 
i absolutly clear which of the two split cases is taking 
place. 


TMK0002 Todd M. Katz 25-Jan-1982 

Made multiple changes pres Seay bucket splitting of 

index buckets. These changes affect a) presage. and both 
compressed and noncompressed prologue eys. 


1. When the new bey is to be inserted as the very first record 
in the new (right) index bucket ag Meds an index bucket 
split the offset to the porns of insertion, 

IRAB {RBSW_POS_INS -_in the new bucket was not being 
coreestihy computed. This was because the amount of front 
compression of the new low order key is saved before it is 
uncompressed, and then added to the offset. This is correct 
except when the new key to be inserted will become the very 
first key in the new bucket, and thus preceed it. What RMS 
will now do is move the records into tie new bucket 
regardless of where the new record wilt be inserted, extract 
the amount 9 front compression of the new low order key and 
uncompress it, zero the amount of front compression if the 
new key is to be inserted as the very first key in the new 
bucket, and then proceed to insert the new key. 


J 11 
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RM3SIDXSP 
vO4-000 


IRABLIRBSL_LS _NCOMP], to the Last noncompressed ney pees 
a 
the current position in the bucket, REC POPR is less than 
n 


3. There was no code handling the situation when a prologue 3 
index bucket splits, and the point of insertion of the new 
key(s) is at the split point. In this instance, changes 
must be made to both the old, and the new index bucket. 
More spge Sr nee) ty. if a multibucket split occurs, a new 
key is inserted in both the old (as the high key) and the | 


50 


new (as the low key) index buckets, and a VBN pointer in the 
new index bucket bucket must be swung from 
IRABCIRB$SL_VBN_LEFTJ (its value before the split occurred) 
to IRABLIRBSL_VBN_RIGHT]. If a nonmultibucket split occurs, 
anew key is inserted as the high order key in the old 
index bucket, and the same VBN pointer swing, described 


PIPIPOPIPONINIPONININIPYPIPOPIPOPPOPoNonofpofnofnofnnfnyd 


above, occurs. These changes are made by forcing prologue 3 
files to 9° through the same top-level code sequence as 
presen and 2 files, affecting must of the changes in 
ower level routines. 


MIPINOND: 
PASSA 
WN —OOOnNOUS wR 


ae 


bucket, and the point of insertion is at the point a 


POPOPOPONONONOPONoPoPoNofnonofry 


which the bucket was split, and empty buckets are involved, 
do not update the index, and instead return an alternate 
success status of index not updated. Previously, the 
multibucké? split enety bucket case was handled exactly 

ike this, and for the two-bucket split empty bucket case, 
a situation which should almost never happen, the existing 
code for nonprologue 5 files did not handle it 
there was no code for prologue 5 files. 


MOMIPOPOPOPYPONoPoNnofrofnonopfnory 


Im 


correctly, and 


SROMIISSS LS 


5. It is presses for both the point of insertion and the 
the split point to be et the very first record in an index 
bucket. This will occur when the key size is such that it 
s possible for two index records to be in the same bucket, 
and a multibucket sptit has occurred requiring updating of 
such a bucket. In this case, we want to a both new keys 
in the old bucket, but still swing the VBN pointer of what 
will become the low order key in the new index bucket. 
The key yodat ing is accomplished by lower routines which 
will notice that not only is IRABCIRB$V_BIG_SPLIT] and 
IRABCIRBSV_SPL_IDX] set but that the point Of insertion 


| 
4. In those cases when there is a key to go in the old wes 
| 
| 
| 
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is at the very first key posi ¢ten of the old index bucket. 
That just the VBN swing should be performed for this 
multibucket spl t case will be s ene) ted by clearing 
IRABCIRBSL_VBN_MID) if the point of insertion is at the 
mary first key position. This is contrary to what normally 
would occur when a multibucket split has occurred and the 
point of insertion is also the split point. 


o 


| 
Made two —a in the computation of the split point | 
of a prologue 3 index quenes with noncompressed keys. First, 
if the point of insertion of the new index record(s) is the 
same as that of the set's point, the new index record (at 
least one of them) will be put in the old bucket. Second, 
if the new index record is to go in the old bucket and 
there is insufficient room, an additional record is moved 
out to make room only if the point of insertion and the 
split point are not the same. If they are the same, this 
inability to fit both records must be do to a multibucket 
split since all records are the same size and at least one 
has been moved out. In such a case one new index record 
will 9° in the old bucket, and the second in the new index 
bucket, and so no action need be taken. 


Suh es 


ONOUS Wo 


7. Made a change in the computation of the split point 
of a prologue 2 index bucket, SIDR bucket or prologue 3 
index bucket with compressed keys. Only if the new record 
is to go in the old bucket, and there appears to be 
insufficient room for it, and the split point and 
insertion points are not the same do we make more room by 
poring out additional records. This can only occur for 
SIDR buckets. For index buckets there will always be 
sufficent room unless a multibucket split has occurred 
requiring the insertion of two new keys. But in such 
instances the bucket will be split at the insertion point 
and one “| will end up in the old and the other in the 
new index bucket. 


v02-015 TMK0001 Todd M. Katz 09-Jan-1982 
Made two changes affecting bucket splitting of 
index buckets with compressed keys. 


Arun TOSS OTOP ON TSS E eR OR TSS Ee 


AWW 


1. In some cases when the vo to be inserted was to 
oO in the new (right) bucket, the pointer to the 
ast nencenpreses key, IRBSL_LST_NCOMP, pointes to 

a key preceed ng the insertion point in wnat will 
become the old (Left) bucket. This resulted in the 
incorrect determination of the amount of front 
compression of the new key, and corruption of the file. 
Update this pointer to the first key in the new bucket 
if it does not point to a key in the new bucket 

preceeding the insertion point. 


2. The routine RMSRECORD_SIZE returns the length of the new 
index record to be inserted in two parts. The first word 
is the key size, and the second word of the longword 
is the VBN size. However, the routine COMP_SPL_PNT 


thought that only a single value was returned. Thus, when 
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the split point ef a index bucket with compressed keys 
was being determined, and the routine encountered in its 
scan sf he the bucket fhe point of insertion and had to 
take into account the size of the new record, the resulting 
incorrect use of the record size returned prevented the 
roper determination of the sptit point. In fact the 
ncorrect use of the ore size returned resulted in the 
inability to correctly split an index bucket whenever the 
new key was to go in the old (left) side. 


vO2-014 PSK0006 P S Knibbe 14-Dec-1981 
Change RECORD_SIZE to take BKT_ADDR as an input 
v02-013 PSKO000S P S$ Knibbe 13-Nov-1981 


Change COMP_SPL_PNT to keep track of last record 
with no front compression and the SPL_COUNT for 
compressed keys 


V02-012 PSK0004 P S$ Knibbe 26-0c t-1981 
Add support for splitting compressed buckets 
v02-011 PSKO003 P S Knibbe 25-0¢ t-1981 
Set the AP flags correctly when calling RMSRECORD_KEY 
v02-010 PSK0002 P S Knibbe 07-0ct-1981 
Make sure the ptr_sz from one bucket is correctly 
moved into the new bucket when a split occurs. 
v02-009 PSK0001 P S$ Knibbe 07-Aug-1981 
Add support for prologue three indexes. 
v02-008 CDS0071 C D Saether 26-Feb-1981 20:00 
Return error on spl_idx, non-empty, big_split case. 
V02-007 REFORMAT R A SCHAEFER 23-Jul-1980 14:15 
Reformat the source. 
v02-006 CDS0070 C D SAETHER 14-JAN-1980 14:35 
Fix splitting alternate data level when no dupes count 


field present in record. Use rm$rec_ovhd routine. 
REVISION HISTORY: 
Wend Keonta 12-OCT-78 14:46 
X0002 = CHANGE THE NRP STUFF 
Wendy Koenig, 24-OCT-78 14:03 
x00035 - MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Wendy Koenig 3-NOV-78 11:35 
X0004 = GET RID OF ROUTINE RMS$ID_AND_NRP 


Christian Saether, 26-JAN-79 9:45 
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;  &0005 - don't split insert of index entries on empty bucket cases 
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Index Bucket Update Cases 


There are four and only four index bucket update cases: two-bucket, 
two-bucket with empty bucket, multi-bucket, and multi-bucket with empty 
bucket. I will discuss these cases from the point of view of updating the 
index following a primary data bucket split. 


Two-bucket Index Bucket Update Case. 


When a primary data bucket splits roughly in half, the — key of the 
bucket now becomes the high key of the new (right) bucket, and the old (left) 
bucket has a new key which is not yet represented in the index. If there is 
sufficient room in the level 1 index bucket for a new index record pointin 
to the old (left) bucket then a two-bucket index bucket update is performed. 
This index bucket update case has four steps to it. 


1. Position to the index record fy 9 eee to the bucket before the split. 
This index record's key will be identical to the high ney of the 
pow, Soren bucket, but its VBN downpo‘nter will be to the old (left) 
ucket. 


nm 
« 


Make sufficient room for the new index record. This step is very 
prologue dependent. 


we 
e 


Insert the new index record. The key of this new index record will 
be the new aH key of the old (left) data bucket while the VBN 
downpointer will also be to old bucket. 


4. Position to the record following this new index record. Of course, 
the key of this index record was the high key of the data bucket 
before the split, and it is now the high key of the new (right) 
bucket. However, its VBN downpointer will still be pgant ing to the 
old bucket that has just split and not to the new right) ucket. 
change this index record's VBN downpointer from pointing to the old 
(Left) bucket, to pointing to the new (right) bucket. 


Two-bucket with Empty Bucket Index Bucket Update Case. 


If after parverasns a data bucket split one new bucket has been added, 
and the left bucket is found to be empty, then index maintenance consists of 
performing a two-bucket with enn ty bucket index bucket update. There are a 
number of primary data bucket split cases that can result in this particular 
index maintenance case, but they all will be handled the same as far as the 
index update is concerned. Note that for this particular index bucket update 
case the new bucket is regarded as the ‘middle’ bucket, and there is no 
“right’’ bucket. Three steps are involved in the index update. 


1. Position to the index record potacing to the bucket before the split. 
This index record's key will be identical to the high key of the 
new (right) bucket. 


2. If the VBN downpointer of this index record does NOT point to the 
data bucket that has split (the old or left data bucket) then do NOT 
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data the index update. If this index update was performed, then RMS 
would be causing crossed downpointers to the er ere data level below 


and would no longer be able to retrieve certa 


n records randomly by 
their primary key value. 


Ww 
° 


If the VBN downpointer of this index record does point to the data 
bucket that has split, then update its VBN downpointer so that it now 
points to the new (middle) bucket (whose high key value is the same 
as the key of the index record, and was the same as the high oy of 
the old data bucket before it split, and the old (left) bucket became 
+ instead of pointing to the old (left) bucket which is now 
empty. 


Note that this in effect removes the old (left) bucket from the index tree 
! (there is no index record with a VBN ag ig pointing to it), but this is 
' acceptable because the bucket is empty. The empty bucket remains Linked into 


! the horizontal data bucket chain. 
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Multi=-bucket Index Bucket Update Case. 


If a multi=-bucket split has occurred at the primary data level then the 
old (left) bucket and the new middle bucket contain new high keys, and the 
new right bucket contains as its high key the high key of the splitting data 
bucket before the split took place. In such a situation RMS will attempt a 
multi=bucket index bucket update provided there is sufficient room in the 
level one index bucket to contain the two new index records (one for each of 
7 ae ~~ pag which must be added. This index bucket update case consists 
° ve steps. 


1. Position to the index record ~~ to the bucket before the split. 
This index record's aey will be identical to the high key of the 
new right bucket, but its VBN downpointer will be to the old (left) 


bucket. 


~™ 
° 


Make sufficient room in the index bucket for the two new index 
record. This step is very prologue dependent. 


Ww 
° 


Insert the first of the two new index records. The key of this new 
index record will be the new high | of the old (left) data bucket 
while the VBN downpointer will also be to old bucket. 


Insert ene second of the two new index records after the first. The 
key of this new index record will be the new high key of the new 
middle data bucket while the VBN downpointer will also be to the new 
middle bucket. 


5. Position to the record following the new index records. Of course, 
the key of this index record was the high key of the data bucket 
before the split, and it is now the hig key of the new right bucket. 
However, its VBN downpointer will still be pointing to the old bucket 
that has just spa st and not to the new Ay ae bucket. pheoge this 
index record's VBN downpointer from pointing to the old (left) bucket 
to pointing to the new right bucket. 


ed 
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Multi-bucket with Empty Bucket Index Bucket Update Case. 
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If a multi=bucket split has occurred at the gig data level, and 

following the split the bucket splitting (the old or left bucket) is empty 

then RMS will attempt a multi-bucket with empty bucket index bucket update 

provided there is sufficient room in he level one index bucket for the new 

index record that must be added. There is only a need to add one new index 

record in this particular index bucket update case, because although there 

will be be two new primary data buckets (the new middle bucket con aining a 

new high key and the new A bucket eat yh, the high key of the old Left 

bucket before the split took place) there is only one new high key. This 

index bucket update consists of five steps. 
| 
| 


1. Position to the index record pointing to the bucket before the split. 
This index record's | will be identical to the high key of the 
new right bucket, but its VBN downpointer will be to the old (left) 


bucket. 


~m 
° 


Make sufficient room for the new index record. This step is very 
prologue dependent. 


Ww 
a 


Insert the new index record. The key of this new index record will 
be the new high key of the new middie data bucket while the VBN 
downpointer will also be to this bucket. 


> 
. 


Position to the record following this new index record. Of course, 
the key of this index record was the pion key of the data bucket 
before the split, and it is now the high key of the new right bucket. 
If the VBN downpointer of this index record does point to the bucket 
that has just split (the old left bucket), then update the V 
downpointer so that it points to the new right bucket. Note that this 
n effect removes the old (left) bucket from the index tree (there is 
no index record with a VBN downpointer pointing to it), but this is 
acceptable because the bucket is ons 4 The empty bucket remains 
Linked into the horizontal data bucket chain. 


5. If the VBN downpointer of the index record does not point to the 
bucket be ae (the old left) bucket then do NOT update the VBN 
downpointer so that it points to the new right data bucket. If this 
index update was porrocned. then RMS would be causing crossed 
downpointers to the primary data level below, and would no longer be 
able to retrieve certain records randomly by their primary key value. 


Index Bucket Split Cases 
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There are four one-pass and five two-pass index bucket split cases. The 
four one-pass index bucket split cases are: two-bucket, two-bucket with empty 
bucket, multi-bucket, and multi-bucket with empty bucket. The five two-pass 
index bucket split cases ore: two-bucket, two-bucket with enpty bucket, 
multi-bucket case I, multi-bucket case If, and multibucket wit empty bucket. 
I will discuss these cases from the point of view of updating the index 
following a primary data bucket split. 


i a ee ee ed 8 ed 8 ed 8 ed 8 ed dd dd 


One-pass Two-bucket Index Bucket Split Case. 
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Index maintenance will consist of a one-pass two-bucket index bucket 

! split when RMS is unable to perform a two-bucket index bucket update because 

' there is insufficient room in the index bucket for the new index record, and 

! either the split point of the index bucket and the position of insertion of 
the new index record do not coincide, or if nm do, the new index record is 

; tp go _ the new (right) bucket. This particular split case consists of 

' ree steps. 


1. Split the index bucket. This step is very prologue dependent. 


2. Perform a two-bucket index bucket update on the index bucket (old or 
new) which after the index bucket split is to contain the new index 
record which is to be added. 


3. As there has been a split of the level one index bucket, the level 
two index bucket containing the index record with the VBN downpointer 
ene to this level one index bucket must be weesrere If the index 

ucket ape ateing was the root bucket, a new root bucket is created, 
e 


and then the index update is performed. 


One-pass Two-bucket with Empty Bucket Index Bucket Split Case. 


Index maintenance will consist of a one-pass two-bucket with eapty 
bucket index bucket split when RMS is unable to perform a two-bucket with 
crety bucket index bucket update because the pointer size required to hold 
the VBN of the new (right) bucket is greater than that required to hold the 
VBN of the old (left) empty bucket, there is insufficient room in the index 
bucket to accommidate the new size, and either the getit point of the index 
bucket and the position of the index record whose VBN downpointer is to be 
updated do not coincide, or if they do, the index record will exist in the 
new (right) bucket ny, Sewine the index bucket split. This is extremely 
prologue dependent. It can be expected that this split case will occur much 
more frequently in the case of prologue 3 files, where the VBN downpointer 
size is fixed on an index bucket basis, then in the case of nonprologue 3 
files where the VBN downpointer size is fixed on an index record basis. Three 
steps constitute this split case. 


1. Split the index bucket. This step is very prologue dependent. 


2. Perform a two-bucket with empty bucket index bucket update on the | 
index bucket (old or new) which after the index bucket split contains 
the index record whose VBN downpointer needs to be updated. 


3. As there has been a split of the level one index bucket, the level 
two index bucket containing the index record with the VBN downpointer 
potatine to this level one index bucket must be updated. If the index 

ucket splitting was the root bucket, a new root bucket is created, 
and then the index update is performed. 


One-pass Multi-bucket Index Bucket Split Case. 


Index maintenance will consist of a one-pass multi~bucket index bucket 

' split when RMS is unable to perform a multi-bucket index bucket update 

' because there is insufficient room in the index bucket for the two new index 
! records, and either the split point of the index bucket and the position of 
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: 628 0627 1 ! insertion of the two new index records do not coincide, or if they do, th : 
; 629 86 8 1 } new index records are to go into the new (right) bucket. This perticu ar 7 ; 
: ° , be 4 ! ; split case consists of three steps. : 
: ? § be 1 } ! 1. Split the index bucket. This step is very prologue dependent. 
: 634 6 § 1/ 2. Perform a multi-bucket index bucket update on the index bucket (old ; 
; 655 634 1 or new) which after the index bucket split is to contain the two new ; 
; ° § Be ; : index records which are to be added. ; 
: 638 0637 1! 3. As there has been a split of the level one index bucket, the level ; 
; 639 po38 1 } two index bucket containing the index record with the VBN downpointer : 
; 640 639 1! or. to this level one index bucket must be upcerees If the index . 
3; 641 0640 1 } ucket Sp) itting was the root bucket, a new root bucket is created, : 
: org bees } and then the index update is performed. : 
: 644 bee8 1 i ; 
; oH Bete i One-pass Multi-bucket with Empty Bucket Index Bucket Split Case. ; 
: 647 0646 1! Index maintenance will consist of a one-pass multi-bucket with empt ; 
; 648 0647 1 ! bucket index bucket split when RMS is unable fo perform a multi-bucket with : 
; 649 0648 1 ! empty bucket index bucket update because there is insufficient room in the F 
; 650 0649 1 ! index bucket for the new index record, and either the split point of the : 
; 651 0650 1 ! index bucket and the position of insertion of the new index record do not : 
; 652 0651 1 ! coincide, or if they do, the new index record is to go into the new (right) : 
: $37 bees i } bucket. This particular split case consists of three steps. : 
3 $33 beee : 1. Split the index bucket. This step is very prologue dependent. | : 
: 657 0656 1! 2. Perform a multi-bucket with empty bucket index bucket update on th ; 
; 658 0657 1! index bucket (old or new) which itter the index bucket Split is te. : 
; Bs beee : contain the new index record which is to be added. ; 
: 661 0660 1 3. As there has been a split of the level one index bucket, the level : 
; 6 0661 1! two index bucket containing the index record with the VBN downpointer : 
3 3 0662 1! poset ing to this level one index bucket must be oe If the index : 
3; 664 0665 1! ucket a SD Ha was the root bucket, a new root bucket is created, 3 
; 665 Vee : } and then the index update is performed. 3 
: 667 0666 1! | ; 
: e28 vet 4 : : Two-pass Two-bucket Index Bucket Split Case. | 3 
: 670 0669 1! Index maintenance will consist of a two-pass two-bucket index bucket | F 
: 671 670 1 ! split when RMS is unable to perform a two-bucket index bucket undate because : 
; 6 671 1 ! there is insufficient room in the index bucket for the new index record, the : 
; 67 0672 1 ! split point of the index bucket and the position of insertion of the new | 3 
; 674 0675 1 ! index record coincide, and the new index record is to go into the old (left) : 
: 67? bere : } index bucket. This particular split case consists of four steps. | $ 
; ort p07 ! | 1. Split the index bucket. This step is very prologue dependent. F 
: 679 0678 1! 2. Insert the new index record as the rightmost index record of the old | : 
; 680 0679 1! (Left) index bucket. The key of this index record will be the new 3 
3 «(681 680 1! high key of the old (left) primary data bucket, and the VBN 3 
; 68 681 1! downpointer of this new index record will also point to this very 3 
: yet bos ! } same bucket. : 
e . | Pi 
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2. Position to the first index record preseres in the new index bucket. 
This index record will contain the high key of the splitting primar 
data bucket before it split, and thus, will be identical to the hig 
key of the new (middle) primary data bucket. If the VBN downpointer 
of this index record does NOT point to the data bucket that has split 
(the old or left data bucket) then do NOT change its VBN downpointer. 
If this VBN downpointer was changed, then RMS would be causin 
crossed Gounpecasers to the primary data level below, and would no 
longer be ab 
key value. 


e to retrieve certain records randomly by their primary 


685 684 3. Update the VBN downpointer of the first index record of the new 
68 685 (right) index bucket so that it points to the new (right) primary 
68 6 : data bucket ens teed of to phe old (left) data bucket. The key of 
688 6 this index record is identical to the hey of the primary data bucket 
689 688 which split (before the split took place), and of course, to the high 
o3y red key of the new (right) primary data bucket. 
69 691 4. As there has been a split of the Level one index bucket, the level 
69 O34 two index bucket containing the index record with the VBN downpointer 
694 69 permerne to this level one index bucket must be updated. If the index 
695 694 ucket Spe atting was the root bucket, a new root bucket is created, 
696 695 and then the index update is performed. 
697 038 
698 69 
$99 O38 Two-pass Two-bucket with Empty Bucket Index Bucket Split Case. 
701 700 Index maintenance will consist of a two-pass two-bucket with oapty 
70 701 bucket index bucket split when RMS is unable to perform a two-bucket with 
70 re ag bucket index bucket update because the pointer size required to hold 
704 70 the VBN of the new (right) bucket is greater than that required to hold the 
705 704 VBN of the old (left) empty oucket, the petit point of the index bucket and 
06 705 the position of the index record whose VBN downpointer is to be updated 
07 706 coincide, and the index record whose VBN downpointer is to be updated is 
707 ‘marked'’ as to exist as the eigateoss index record in the old (left) index 
708 bucket genes the index bucket split. This is extremely prologue dependent 
709 It can be expected that this split case will occur much more frequently in 
710 the case of prologue 3 files, where the VBN downpointer size is fixed on an 
711 index bucket basis, then in the case of nonprologue 3 files where the VBN 
ne downpointer size is fixed on an index record basis. Four steps constitute 
at this split case. 
a? 1. Split the index bucket. This step is very prologue dependent. 
17 
18 
19 
20 
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3. If the VBN downpointer of this index record does point to the data | 
bucket that has split, then update its VBN downpointer so that it now 
points to the new (middle) bucket (whose high key value is the same 
as the key of the index record, and was the same as the high a of 
the old data bucket before it split, and the old (left) bucket became 
anety?s instead of pointing to the old (left) bucket which is now 
empty. 


4. As there has been a split of the level one index bucket, the level | 
two index bucket containing the index record with the VBN downpointer 
porntine to this level one index bucket must be updeted. If the index 
ucket sot itt ing was the root bucket, a new root bucket is created, 
and then the index update is performed. 
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: 74 741 1! $ 
; 74 tg 1! 5 
; rte oe : ; Twopass Multi~bucket Index Bucket Split Case I. : 
3; «74 745 1! Index maintenance wll consist of a two-pass multi=-bucket index bucket | : 
; 74 pres 1 ! split (case 1) when RMS is unable to perform a multi-bucket index bucket . 
; 748 0747 1 ! update because there is insufficient room in the index bucket for the two new ; 
: 749 Bree 1 ! index records, the split point of the index bucket and the position of ; 
> 750 0749 1 : insertion of the two new index records coincide, the new index records are : 
; 751 Brey 1 | ‘marked’ as to go into the old (left) index bucket following the index : 
3 P3¢ 0751 1 ! bucket split, and the point of insertion of the new index records and the F 
; 75 p76 1 ! split point do NOT coincide with the position of the very first index record : 
s 36 7 1 ! in the old (left) index bucket. This particular split case consists of five 5 
; 755 0754 1! steps. ; 
; (2 0755 1! 3 
3 eee Br 38 } 1. Split the index bucket. This step is very prologue dependent. : 
; 759 0758 1! 2. Insert the first of the two new index records as the rightmost index 3 
: 760 0759 1! record of the old (left) index bucket. The key of this index record : 
; 761 0760 1! will be the high key of the old (left) primary data bucket, and the : 
; P66 0761 1! VBN downpointer of this new index record will also point to this very $ 
$ rer b76¢ : } same data bucket. : 
3 e5 0764 1! 3. Position to the first index record position in the new (right) index : 
: 766 0765 1! bucket, make sufficient room for the second of the two new index H 
s or 0766 1! records (this is very prologue dependent), and insert the new record. PF 
: 768 0767 1! The key will be the new high key of the new middle primary data : 
; 769 0768 1! bucket, and the new index record's VBN downpointer will also point to 3 
3 a4 0785 : this data bucket. : 
s fe 0771 1! 4. Update the VBN downpointer of the second index record of the new : 
s «ts 140: 1! (right) index bucket so that it points to the new right pr iwery data : 
3; 774 07735 1! bucket instead of to the old (left) data bucket. The key of this 3 
s 775 0774 1! index record is identical to the key of the primary data bucket which Fy 
; 776 0775 1! < before the split occurred, and of course, to the high key of 3 
3 ore g77e : } the new right primary data bucket. 
3; 779 0778 1! 5. As there has been a split of the level one index bucket, the level 
; 780 0779 1! two index bucket containing the index record with the VBN downpointer | 
: 781 3789 |; poses "0 to this level one index bucket must be updated. If the index 
; 8 0781 1! ucket spt itting was the root bucket, a new root bucket is created, | 
:; 78 44-14 1! and then the index update is performed. 
: 786 0785 1! 
; 785 Bree 1! 
3 36 th ! } Two-pass Multi-bucket Index Bucket Split Case II. 
; 788 0789 1! Index maintenance will consist of a two-pass multi-bucket index bucket | 
; 789 0788 1! split (case I1) when RMS is unable to perform a multi-bucket index bucket 
; 790 789 1 ! update because there is insufficient room in the index bucket for the two new 
: 791 790 1! index records, the split point of the index bucket and the position of 
; 79 791 1°! insertion of the two new index records coincide, the new index records are | 
3; 7 $738 1 ! ‘marked’’ as to go into the new (left) index bucket following the index 
: 794 793 1 ! bucket split, and the point of insertion of the new index records and the 
: 795 0794 1! split point coincide with the position of the very first index record in the 
; 796 0795 1! old (left) index bucket. This particular split case is a very special split 
2 ree 3796 1 ! case that can be required during the processing of onty those files whose 
; 798 0797 1! bucket size/key size ratio allows for only two (or at the least two if index 
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compression is enabled) index records per index bucket, and when a 
multi=bucket split occurs such the the keys of both new index records are 
less than the *y of the leftmost index record of the index bucket in which 
a are to go. Five steps are required to process this particular split 


Ve Split the index bucket. This step is yory prologue dependent. Because 
the split point will be the same as the first index record position 
in the splitting index bucket and only two index records will be 
allowed in each index bucket this means that following the split, the 
new (right) index bucket will contain both the records that were 
formerly in the splitting bucket, and the old (left) index bucket 
will temporarily be empty until the index update has been completed. 


2. Insert the first of the two new index records as the very first index 
record in the old (left) index bucket. The key of this new index 
record will be the new high a of the old (left) data bucket while 
the VBN downpointer will also be to old bucket. 


3. Insert the second of the two new index records after the first. The 
key of this new index record will be the new high key of the new 
middle data bucket while the VBN downpointer will also be to the new 
middle bucket. 


4. Update the VBN downpointer of the first index record of the new 
wh mg index bucket so that it points to the new right pe mere data 
bucket instead of to the old (left) data bucket. The key of this 
index record is identical to the key of the primary data bucket which 
split (before the split took place), and of course, to the high key 
of the new right primary data bucket. 


5. As there has been a split of the level one index bucket, the level 
two index bucket containing the index record with the VBN downpointer 
pecre ae to this level one index bucket must be apeerese If the index 

ucket splitting was the root bucket, a new root bucket is created, 
and then the index update is performed. 


Two-pass Multi-bucket with Empty Bucket Index Bucket Split Case. 


Index maintenance will consist of a two-pass multi-bucket with enoty 
bucket index bucket split when RMS is unable to perform a multi-bucket with 
empty bucket index bucket update because there is insufficient room in the 
index bucket for the new index record, the split point of the index bucket 
and the position of insertion of the new index record coincide, and the new 
index record is marked as to go into the old (left) index bucket following 
the index bucket split. This particular split case consists of five steps. 


1. Split the index bucket. This step is very prologue dependent. 


2. Insert the new index record as the rightmost index record of the old 
(Left) index bucket. The key of this index record will be the high 
4 of the new middle primary data bucket, and the VBN downpointer of 
this new index record will also point to this very same bucket. 


3. Position to the first index record position in the new index bucket. 
This index record will contain the high key of the splitting primary 
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; 2$ 0855 1! data bucket before it split, and thus, will be identical to the high 
5 2$ 1: sey of the new right primary data bucket. If the VBN Sounpo inter ) 

; 858 2 1! this index record does NOT point to the data bucket that has split 

; 859 si} (the gie or left data bucket) then do NOT change its VBN downpointer. 
; 860 859 1! If this VBN downpointer was changed, then RMS would be causin 

; 861 0860 1! crossed downpointers to the primary data level below, and would no 

; 86 9g 1! longer be able to retrieve certain records randomly by their primary 
; 0 66 1 ! key value. 

; 864 0865 1! 

; 865 0864 1! 4. If the VBN downpointer of this index record does point to the data 

: 866 0865 1! bucket that has split, then update its VBN downpointer so that it now 
; 867 44 1! points to the new right bucket (whose high key value is the same as 

; 868 867 1! the key of the index record, and was the same as the high key of the 
; 869 0868 1! old data bucket before it split, and the old (left) bucket became 

; 870 0869 1! empty), instead of pointing to the old (left) bucket which is now 

2 tees 8 i Shboens 

8 He +143 1! 5. As there has been a split of the level one index bucket, the level 

> 874 0875 1! two index bucket containing the index record with the VAN downpointer 
s fs 0874 1! porre see to this level one index bucket must be updated. If the index 
; 876 0875 1! ucket splitting was the root bucket, a new root bucket is created, 

; 877 bays 1! and then the index update is performed. 

; 878 877 1! 

3 Sry 0878 1! 

; 880 0879 1! 

3 ++ st] : 1 Index Maintenance Requirements for Index Bucket Splitting 

3 B83 0882 1! Whenever an index bucket splits it is necessary to update the index level 
; 884 08 1 ! immediately above, and if it is the root bucket that is splitting, a new root 
; 885 0884 1 ! bucket is created before this updating takes place. If there is sufficient 

3 0885 1 ! room in the index bucket that is to be updated because of the index bucket 

; 887 0886 1 ! split, then an index update takes place; however, if there is also 

5 0887 1 | insufficient room in that bucket then it too must split, and the index level 
; 889 +444 ! above it must be updated as well (or created if there is no level above). 

; «891 0890 1! As there can be no empty index buckets, and no index bucket splits 

; FF 0891 1 ! involving more than one new index bucket this eliminates all empty bucket and 
; 0892 1 ! multi-bucket update and split cases from oy, as the result of an index 
; 894 08935 1 ! bucket split. In fact, only one update case (Two-bucket Index Bucket Update) 
; 895 0894 1 ! and two split cases (One-pass Two-bucket Index Bucket Split and Two-pass 

; 896 0895 1 ! Two-bucket Index Bucket Split) can ever result from the splitting of an index 
3 897 0896 1 ! bucket. These three cases are handled grectiy the same as if the maintenance 
3 3399 O88 ! of the index was required because of the splitting of a primary data bucket. 
; 900 899 1 | 

; 901 Bons ' : Index Maintenance Requirements for SIDR Bucket Splitting 

3 303 0902 1! A split involving a SIDR bucket can also never create an gnoty buckec or 
: 904 0903 1 ! involve more than one new bucket; therefore, only the Two-bucket Index Bucket 
; 905 4 1 | Update, the One-pass Two-bucket Index Bucket Split, and the Tyorpass 

; 906 905 1 | Two-bucket Index Bucket Split cases can occur as the result of the splitting 
: 907 2908 1 ! of a SIDR bucket. As was the case with the splitting of primary data and 

; 908 0907 1 ! index buckets, an index update is first attempted, and if there is 

; 909 bat: 1! insufficient room in the index bucket to be update a split is done. 

; 910 909 1 ! Furthermore, as was the case with the index updated resulting from the 

; 911 34 1!s ASSt ioe of index buckets, the various split and update cases resulting from 
; 912 911 1 ! the splitting of SIDR buckets are handled exactly the same as if the 
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; 913 912 1 ! maintenance was required because of the splitting of rimary data buckets. ; 
; 914 318 1 ! Where the maintenance requirements of S$ DR bucke splits differs from that ; 
; 915 914 1 ! of index buckets is when the bucket splitting is a continuation bucket. : 
; 318 915 1! Actually, as SIDR continuation buckets never split (new one are just created ; 
; 91 8318 1 ! as they are needed), whenever a SIDR continuation bucket is created no index : 
$ 318 831 ! } updating is required. ; 
; 920 $819 1! : 
; 4 1 8 Y } The Goals of SIDR Bucket Splitting. ; 
; F ‘ 09 ¢ 1? RMS will always try and split index buckets reygnly in half. This is also : 
; 924 98 1 ! the same basic goal for the Gpaputet ten of the split point in SIDR buckets. : 
; 925 924 1 ! Most of the time RMS would Like to split SIDR buckets rou . in half. It is : 
; 926 4 5 1! not always successful because of odd numbers of SIDRs, and the differing | : 
; 9e7 9 § 1 ! sizes of those SIDRs. The differing SIDR size maybe caused by SIDR key ; 
; 928 09 1 ! compression, or by differing numbers of duplicates associated with each SIDR . 
; 929 0928 1 ! that can cause some SIDRs to be very large, even take up an entire SIDR ; 
3 339 94 4 : ; bucket, or to be quite small. ‘ 
: 26 0931 1! To compute the SIDR bucket split point, RMS computes a target address ‘ 
3; 9 O33¢ 1 ! within the bucket, and proceeds to scan the bucket. The target address is : 
; 934 0935 1 ! computed by Look inp at the amount of SIDR bucket in use, dividing it in half, : 
; 935 0934 1 ! and adding it to the current address of the bucket in memory. The bucket scan : 
; 936 0935 1 ! terminates when a SIDR is encountered whose address equals or exceeds the : 
: 937 0936 1! carpet split address. That address becomes the split point of the bucket. ; 
; 938 0937 1 ! While por forming this scan, RMS takes into acount the point of insertion of ; 
; 939 0938 1 ! the new SIDR. If it encounters this address during the scan without exceeding | ; 
; 940 0939 1! the target address, RMS assumes that the new record is to go into the old or : 
; 941 0940 1! Left bucket. A state bit is set to indicate this, and the size of the new | ‘ 
3 ace 0941 1 ! record is taken into account from this point on when determining whether or : 
; 94 0942 1 ! not the target address has been exceeded. The most insoresttng IDR bucket : 
3 944 09 1 ! split cases arise when the address of the calculated SIDR bucket split point, 3 
5 +H Boge : } and the point of insertion of the new record end up being one and the same. : 
3 947 0946 1! There is one exception to how the bucket split point is calculated, and it : 
; 948 0947 1 ! points out a second SIDR bucket opie goal. If the point of insertion of the : 
; 94 0948 1 ! new record is at the end of the SIDR bucket, in certain cases RMS will split 3 
: 950 0949 1 ! the SIDR bucket at the end of the bucket (the point of insertion of the new : 
; 951 0950 1 ! record), and the new record is put in the new (right) SIDR bucket as the sole : 
3 326 0951 1 ! record. The reason for this is as follows. If the new record is a duplicate, : 
; 6326 1 ! and the SIDR it would belong to occupies the entire bucket, then that bucket : 
; 954 0953 1! is already being maximally used, and RMS will gain nothing by set ite ing the : 
; 955 0954 1 ! bucket any other wey except the waste of space in the old (left) bucke F 
3 Zee bots 1 ! (since SIDR array elements are aways added in FIFO ordering). RMS may benefit : 
; 95 228 1 ! more by splitting the bucket at its end, and creating a SIDR continuation s 
; 958 0957 1 ! bucket with the new record as the first array element of the sole SIDR in the $ 
; 959 0958 1 ! new bucket. On the other hand, if the record is a brand new SIDR (not a : 
: 960 0959 1 ! duplicate), then placing the new record in a bucket all by itself will be a 3 
; 961 960 1 ! real space win if the records are being added to the file in ascending order : 
; 366 961 1! by this seconcery key of reference. This is because each SIDR bucket will | 3 
; 96 306 1 ! have been completely packed, before packing of the next one is initiated. If 3 
; 964 965 1! records are being added randomly then nothing is really lost by splitting the : 
: #4 He ! bucket here. ; 
: 967 4 | 1! The third goal is more a matter of common sense. RMS can not split the SIDR : 
; 968 967 1 ! bucket such that when RMS goes to insert the new record it finds that there is : 
3; 969 0968 1! insufficient room in the SIDR bucket in which the new record is to go. Because : 
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; 970 4 1 ! RMS will never split a SIDR bucket in the middle of a SIDR, and because SIDRs | ; 
; 971 9 Y 1 ! can be a large so as to occupy almost the entire bucket it is possible for ‘ 
; ars 971 1! this situation to arise. For example, consider the case of a bucket consisting : 
; 97 af6 1! of one nag | small SIDR ven \guer by one very large SIDR, and the new record , 
+ 974 975 1! was to go between the two. Dur ng the bucket scan RMS positions to the very | ; 
; 975 974 1! large record. and even taking into account the new record, RMS still will not : 
3 44) 975 1! have positioned past the target sol t point address. Thus, RMS would conclude : 
; 97 are 1 ! that the SIDR it is currently positioned to (the very ores one) should go : 
; 978 977 1 ! with the others in the old bucket, and would position past it. Since this ; 
; 979 144: 1 } pos *tiens RMS past the target split point address, RMS would stop aceng°ne. ; 
; 980 979 1 ! However, this also would position RMS to the end of the bucket, and this is . 
; «981 980 1 ! not a suitable split point since it would Leave the old SIDR bucket intact ; 
; 98 981 1 ! and RMS already knows that there was insufficient room in the bucket to ; 
; 98 bang 1 ! accomidate the new record or it would not be gt tenes ing a split in the first | : 
; 984 985 1! place. What this third goal forces RMS to do in this situation is to back up | ‘ 
; #985 0984 1 ! one SIDR and split the SIDR bucket between the very small and the very large ; 
; 986 985 1 ! records with the new SIDR to be placed into the old (left) bucket. Even | : 
; 987 986 1 ! though the SIDR bucket will be split into oraenr snenees halves, splitting F 
; 988 O38 1 ! at this place guarentees that the new record will have sufficient room for ; 
; 989 445 : its insertion. : 
; 991 0990 1! The forth and final goal of SIDR bucket splitting is to make sure that if 3 
; 99 0991 1 ! the new record is a duplicate (ie - there are other records in the file with F 
; 99 0454 1 ! this secondary key value), it should always go into the SIDR bucket containing F 
; 994 0995 1! the SIDR it is a duplicate of. In fact, it should always end up as the last F 
; 995 0994 1! array element in this SIDR after its addition is completed. This goal never $ 
; 996 0995 1! affects where the SIDR bucket split ee is calculated to be; but rather, : 
; 997 0996 1 ! once this split point has been calculated and it is seen to coincide with the | : 
; 998 0997 1 ! point of insertion of the new record, in which bucket the new record is : 
; 999 0998 1 ! placed. Note that there is one exception to this rule which has already been | : 
; 1000 0999 1 ! described. If the SIDR the new record is a duplicate of occupies the entire ; 
3 1004 4 : pao bucket, then the new record is placed by itself in a SIDR continuation 3 
: 1008 1-1 Et & Gpregmets : 
; 1004 1003 1! Thus, there are four goals which are taken into account during SIDR bucket F 
; 1005 1004 1 ! split point determination. Goal number 2 takes precedence in this : 
; 1006 1005 1 ! determination followed by goal number 1, Goal number 3 serves to modulate ; 
; 1007 1006 1 ! goal number 1 such that a split point will always be calculated which will : 
; 1008 1007 1 ! allow sufficient room for the new record in whatever bucket it is to go. : 
: 1009 1008 1! Finally, goal number 4 can affect in which bucket the new record is placed 3 
: 139 1O08 ! provided it is not superceeded by goal number 2. : 
3 Ole 1011 1°! F 
3 Ha Ils ' : The SIDR Bucket Split Point “= The Point of Insertion of the New Record. ; 
3 1015 1014 1! There are six bucket split cases which fall into this catagory. They are é 
; 1016 1015 1 ! all handled besicetty the same. After the split point has been determined, the : 
3; 1017 13g 1 ! SIDR bucket split takes place and then the new record is inserted into the : 
3 1918 ist : } appropriate bucket at the appropriate place. F 
: 1020 1919 1! Case Number 1: The point of insertion of the new SIDR is at the front of F 
; 1% 1 19 ? : } the SIDR bucket. 3 
; 10 10 § 1! Case Number 2: The point of insertion of the new SIDR is to the left of the : 
3 19 : + ? ' } SIDR bucket split point but not at the front of the bucket. 3 
: 1026 1025 1! Case Number 3: The point of insertion of the new duplicate is to the left 3 
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: 1027 1 $ 1} of the SIDR bucket split point but not at the front of the ; 
; : 3 ; ! } SIDR bucket. : 
; 10 1 § 1! Case Number 4: The point of insertion of the new SIDR is to the right of : 
: 18 1 1030 1! the SIDR bucket split point but not at the end of the : 
; 13 § ! 1 ! } bucket. ; 
3 1034 1 5 1! Case Number 5: The petns of insertion of the new duplicate is to the right | : 
; 1035 1034 1! of the SIDR bucket split point but not at the end of the 3 
; 1? : 5 : SIDR bucket. | : 
: 4 3 1 ; 1! Case Number 6: The potne of insertion of the new duplicate is at the end : 
3 7 1038 1! of the bucket, but the SIDR it belongs does not occupy the : 
3 ier 1375 ; entire SIDR bucket. : 
3 16 1041 1 ! Actually, case number 6 is handled somewhat differently from the other 5. The 3 
: 104 Mok 1! split point is initially determined to be at the end of the bucket (Goal 2). ; 
3 10446 1045 1 ! However, when it is determined that the SIDR the new duplicate belongs to does | H 
: 1045 1044 1 ! not occupy the entire bucket, RMS decides to oriit the SIDR bucket not at the : 
3 1046 1045 1! end, but at the sogrenee address of the Last SIDR in the bucket. Thus, the : 
3: 1047 Ho 1 | SIDR bucket split is performed such that the new (right) SIDR bucket contains $ 
; 1048 1047 1 ! one SIDR = the SIDR that was formerly the Last record in the old bucket, and : 
3; 1049 1048 1 ! the new duplicate is inserted as the last member of its array. : 
; 1050 1049 1! F 
: 1051 1050 1! 3 
3 1936 192) : } The SIDR Bucket Split Point = The Point of Insertion of the New Record. : 
: 1054 1988 1! There are seven bucket split cases which fall into this rt They are 3 
; 1055 1054 1 ! all handled pap jcatiy the same. After the split point has been determined, the : 
3 1938 1055 1 ! SIDR bucket split takes place and then the new record is inserted into the 3 
: Wee 1329 : } appropriate bucket at the appropriate place. : 
; 1059 1058 1! Case Number 1: The ath of insertion of the new SIDR is at the front of 3 
3; 1060 1059 1! the SIDR bucket. In this case the SIDR currently at the : 
3; 1061 1060 1! front of the SIDR bucket must occupy the entire bucket. F 
: 4 1061 1! It will be moved into the new (right) bucket and the new : 
3 Ror 1006 : } SIDR will occupy the old (left) bucket by itself. : 
3; 1065 1064 1! Case Number 2: The point of insertion of the new SIDR is to the left of : 
3; 1066 1065 1! or at the mypotget tees 0-50 split point of the SIDR bucket 3 
: 1067 1066 1! but not at the front of the bucket. The new SIDR will be : 
3 1908 H's 4 : inserted as the Last record in the old (left) SIDR bucket. | : 
; 1070 196) 1! Case Number 3: The point of insertion of gne new duplicate is to the left 3 
; 1071 1070 1! of or at the hypothetical 50-50 split point of the SIDR : 
3 1078 1071 1! bucket but not at the front of the bucket. The new duplicate : 
3; 107 1976 1! will be inserted as the last array element in what will 3 
3 Ore 8 : become the Last SIDR in the old (left) SIDR bucket. : 
: 1076 1075 1! Case Number 4: The potne of insert ign ef the new sien is to the right ; 
; 197 1976 1! of the hypothetical 50-50 split point of the SIDR bucket 3 
; 1078 1077 1! but not at the end of the bucket. The new SIDR will become 3 
3 H+ 444 34: : the first record in the new (right) SIDR bucket. | : 
3; 1081 + i Case Number 5: The point of insertion g the new duplicate is to the right $ 
3 108% 1081 1! of the hypothetical 50-50 split point of the SIDR bucket 3 
: 108 1082 1! but not at the end of the bucket. The new duplicate will be 3 
| 


) 
| 


Local Linkages 


RLSCOMP_SPL_PNT = JSB (REGISTER = 1) 
: GLOBAL (R_IDX_DFN, R_IRAB, R_REC_ADDR, R_BKT_ADDR,R_IFAB), 
RLSLINKAGE = JSB () 
: GLOBAL (R_IDX_DFN, R_IFAB, R_IRAB, R_REC_ADDR); 


WAAR NUMINVIVNNNNS SHS BOOS 
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3 1 1083 1! inserted as the Last orray element in what will become the 
; : 5 } : ! Last SIDR in the old (left) SIDR bucket. 
; 10 1 § 1! Case Number 6: The point of insertion of the new SIDR is at the end of the 
; 1336 1 1! SIDR bucket. The new SIDR will become the first and only 
: 1983 ! 3 : } record in the new (right) SIDR bucket. 
: 4 1090 1! Case Number 7: The eyiet of insertion of the new duplicate is at the end of 
s 1 3g 193) 1! the SIDR bucket. Because the SIDR occupies the entire old 
; 109 1 88 1! (Left) SIDR Sugket the new (right) bucket is created as a 
3: 1094 1095 1! SIDR continuation bucket. A new SIDR is created to exist 
3 1095 199% 1! within this new bucket. It is the sole SIDR within the new 
3 1 1095 1! bucket, and the new gupt cate is inserted as the sole array 
; 109 1998 1! element within this SIDR. 
3; 1098 1097 1! 
3; 1099 1098 1 !eeeee 
3; 1100 1099 1 
: 1101 1100 1 LIBRARY ‘RMSLIB:RMS'; 
3 1 4 1101 1 
3 110 1196 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 
3 1104 1167 1 
3 1105 1168 1 ! Define default PSECTS for code. 
: 1106 1169 1! 
3 1107 "70 1 PSECT 
3; 1108 173 ¥ CODE = RMSRMS3(PSECT_ATTR), 
3 : ¢ : PLIT = RMSRMS3(PSECT_ATTR); | 
$1111 4 1°! Linkages 
31 ‘ . 3 | 
3 1 $ 1 LINKAGE 
311146 1 L_JSB01, 
3 1115 8 1 L_PRESERVE1 
: 1116 9 1 L“RABREG_567, 
3 1117 0 1 L_RABREG 67, 
3 1118 +2 L-REC_OVAD, 
3 1119 ; 1 
3; 1120 1 
3 1121 4 1 
3 7 § . ¥ 
3 1 » F 
3 1124 ris 
3 1125 8 1 
: 1126 9 1 
3: 1127 1 
3; 1128 1 
3 1129 1 
3 1 1 
2 9 1 
3 7 1 
3; 7 1 
3 1 
3; 7 1 
3 7 1 
3 1 
3 7 1 
: 7 1 
. 3 1 


ee ee ee ee LL LL Le Le ee eee Se 
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1 
: 1 External Routines 
1 § EXTERNAL ROUTINE 
1 194 RMSCNTRL_ADDR : RL SAABAEG 567. 
¢ 195 OMPRESS_KEY RL$JSBO 
196 RMSGETNEXT_REC RLS$RABREG_67, 
1 MSINS_REC RLSRABREG 67, 
5 1 RMSMOV : RLSPRESERVE1, 
RMSRECORD_KEY : ag tt} 
0 RMSRE CORD” SIZE : RL$SRABREG 567, 
3 1 RMSREC_OVAD : RLSREC_OVAD; 
40 g ! Key compression overhead macros. 
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0,16,0.% 
-16,16,0 &: 
DDR = .BKT_ADDR + BKT$C_OVERHDSZ; 


RM: 


o 
uw 
< 
Oo 
~ 


KEY_SZ = | 
VBN7SZ = | 
A | 
= .BKT_ADDR™+ .BKT_ADDRCBKT$W_FREESPACE]; 
! Prologue 3 non-compressed index record. 

if .BKT_ADDREBKTSB_LEVEL] GTRU 0 


ua CIDX$B_IDXBKTYP] EQLU IDX$C_NCMPIDX 


BEGIN 
vertu REGISTER 
R~ IMPURE; 
LOCAL 
VBN_ADDR 
TEMP: BLOCK(1); 
TEMP = RMSRECORD_SIZE(); 
Compute the address of first record past the midpoint. 
SPL_PNT = .REC_ADDR + 


({(,E0B = .REC_ADDR) / 2) / .IDX_DFN CIDX$B_KEVSZ) 
* [IDX“DFN CIDX$B7KEYSZ); 
SEGIN 
LOCAL 
SAVE: 


IRAB CIRBSL_SPL_COUNT] = (.SPL_PNT - .REC_ADDR) / .IDX_DFN CIDXS$B_KEYSZ); 
SAVE = .1 CIRB$L RC COUN ; 

IRAB CIRBSL_REC_ COUNT) = .IRAB CIRBS$L_SPL_COUNT]; 

VBN_ADDR = RMSCATRL_ADDR(); 

RAB CIRB$L_REC_COUNT] = . SAVE; 


BREE EEE FANNIN NWI IP DIPINININNIDY) 2 SS SS OS SS OOOOOOCO 
a Bk eB ee ed LD A BD LD UL A ee 


DONA WR $0 ODNA US WR 0 OONOA UE WN 0 ODNAUES WN OOONAUESWWN "ODO ODNOULSW 


Be Be Ge Se Be Se Ge Se Se Be Se Be Se Ge Se Fe Se Se Se Se Be Se Se Se Se Ge Se Se Ge Se Fe ee Fe Se Se Se Se Se ee FH Se SH Oe Se Se Se ee 


} The new record will go into the left bucket. 
if .SPL_PNT GEQA .INS_PNT 
THE 
BEGIN 
IRAB CIRB$V_REC_W_LO) = 1; 
! If there is insufficient room in the old bucket for the index 
records which must be inserted, and we are not at the insertion 


4 
point then move out one more regore to make room. If we are at 


| 
Get the address of VBN split point. 
| 
| 
| 
i 
| 
| 
| 
the insertion point then there 


me ee ee ee em ek ee ee ee ed ed dd ed dd ed dd dd wd = dd 
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s insufficient room because 
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6 ! we are attempting to insert two nore into an index bucket where 
6 ' there is only room for one. In such a case one key will go in 
? the old bucket, and another will go in the new index bucket. 
6 | REMEMBER: keys are fixed in size!!! 
6 iF (.VBN_ADDR = .SPL_PNT) LSSU (.TEMP CKEY_SZ] + .TEMP CVBN_SZJ) 
6 (.INS_PNT NEQA .SPL_PNT) 
6 HEN 


! The records we are moving out don't leave enough room 
Move one more 


GIN 
SPL_PNT = .SPL_PNT = .IDX_DFN CIDX$B_KEYSZJ; 
JRAS CIRB$L_SPC_COUNT] = TIRAB CIRB$SC_SPL_COUNT) - 1; 
END; 


END 
ELSE 


| 
| 
' Prologue two index or SIDR bucket. 
Prologue three compressed index or SIDR bucket. 


BEGIN 


CAL 
SAVE _COUNT; 


SAVE_COUNT = .IRAB CIRBSL_REC_COUNT); 
IRAB-CIRBSL_LST_NCMP] = .REC_ADDR; 


IF_.INS_PNT NEQ .E0B 
TH 


ee ee ee ee ie ee ee ee eee Ss 
AANA WII ANIA II ARID PIPPIN PINININI NINO NINPYNPINPONI POPU Po NoNoNoNnononoponyononony 
= OOO0000 00 .0000000 00 00 09 00 090000 I I I II 
DNAUEWN OOO NAU EWN OOR NOUS UN O00 NOME UR 
a ee eS SS 
DDE DEDEDE DE DEDEDE TU BS BB BB ANI AIAN rp prpnonoru 
OONAAE WOOO NAU EWN OOOO SOU dP OD 09 MOPUT UMP 


WIWAAINANNNA NANA AAAI AWN AIAN AANAI IAAI WINN A AWWW 
PEPPER PRPS EE PWN IIAP PIPINI WINS BNE SPSS LMS SLL LE 
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N 

5 BEGIN ! of block scan 
99 1 LOCAL 
00 ¢ BUCKET_LEVEL, 
01 LRA, 
0¢ 4 NEW_REC_SZ; 
Be $ Determine the level of the bucket once and only once. 
06 4 if (BUCKET_LEVEL = .BKT_ADDR(BKTS$B_LEVELJ) EQLU 0 | 
08 if BUCKET_LEVEL = -1; 
i : 
11 os ! Compute the hypothetical 50-50 split point based on the 
\¢ ee current bucket freespace offset pointer. 
14 ds NEW_REC_SZ = 0; 
15 7 SPL_PNT = (.£08 - .REC_ADDR)/2 + .REC_ADDR; 
16 78 IRAB CIRB$L_REC_COUNTJ~= 0; 
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; 1317 1379 4 

; 1518 1380 4 ! Scan bucket until RMS gets to the record past the split point 
3; 1319 1381 4 ! calculated (if the new record is going to end up in the new 

; 1520 1 Ht 4 ! (right) bucket, or until the current position plus the size of 
: 1521 1 4 4 ! the new record to be inserted exceeds the split point (if the 
3 : ¢ ! Se : new record is going to end up in the old (left) bucket. 

3 3 Se 1386 4 DO 

; 1325 1 tf 5 BEGIN 

: 1326 13588 5 

: } $f : + 5 LRA = .REC_ADDR; 

3 1 29 1391 ; ! if RMS's current position in the bucket scan matches the 
: 1330 1 38 5 ' point of insertion, then the new record will go into 

; 1331 139 2 ! the old (left) bucket. at this time the size of the new 

3 1336 1394 ' record is computed so its value maybe taken into account 
3 335 1395 5 ! in the determination of the split point. if the insertion 
; 1334 1396 5 ! of the new record would not cross the split point, the 

; 1335 1397 5 ' bucket scan cantinues with the next record. 

; 1336 1398 5 ; 

; 1337 1399 5 IF .REC_ADDR EQLA .INS_PNT 

3 1338 1400 5 THEN 

3; 1339 1401 6 BEGIN 

; re 1oR8 6 

: 1341 1403 6 GLOBAL REGISTER 

3 a 1404 6 RAB, 

: 134 1405 6 R_IMPURE; 

3: 1344 1406 6 

3: 1345 1407 6 IF ,IRABCIRB$V_REC_W_LOJ 

3: 1346 1408 6 

3: 1347 1409 6 RMSGETNEXT_REC() 

3; 1348 1410 6 S 

3: 1349 1411 7 BEGIN 

: 1350 1412 7 

3; 1351 1413 7 LOCAL 

; 1352 1414 7 TEMP: BLOCKC1]; 

; 1353 1415 7 ; 

3; 1354 1416 7 ! Obtain size of the new index record(s). This is a 
: 1355 1417 7 ' single quantity in a non-prologue 5 file, but two 
3; 1356 1418 7 ! contigious words in a prologue 3 file. However, since 
3 l3or 1419 7 ! the entire prologue 1 index record but only the key 
; 1358 1420 7 ' portion of the prologue 3 index record contributes 
3; 1359 1421 7 ' to the end-of-bucket computation, just use the low 
3 1360 1058 7? ! order word (key size in the case of a prologue 3 
3; 1361 14 7 ! index record but entire index record size i 

; 1308 1424 7 ' nonprologue 3) as the new record size. 

3; 136 1425 7 ! 

3 1364 1426 7 TEMP = RMSRECORD hs Ae 

: 1365 1407 7 NEW _REC_SZ = , TEMPLKEY_$2); 

: 1366 1428 7 IRABCIRB$V_REC_W_LOJ ="1; 

: 1367 1667 7 END 

: 1368 1430 6 END 

3; 1369 1431 5 ELSE 

; 1370 1438 6 BEGIN 

; 1371 14 6 

; 13% 1434 6 LOCAL 

3; 137 1435 6 REC_SIZE, 
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RECORD_OVHD; 


Position to the next record in the bucket. 


RECORD_OVHD = RMSREC_OVHD(.BUCKET LEVEL; REC_SIZE); 
REC_ADBR = .REC_ADDR™+ .RECORD_OVAD + .REC_SIZE; 


IRABCIRBSL_REC_COUNT] = .IRABCIRBSL_REC_COUNT] + 1; 


! if index or key compression is enabled, this is an 

! appropriate bucket, the front compression of the current 
' record is zero, and RMS has not reached the insertion 

! point, then update the pointer to the last noncompressed 
' record to facilitate computation of the front compression 
of the new record to be inserted. 

I 


F CCBKT ADDRCBRTSB_LEVEL] EQLU 0 
- . 1DX_DFNCIDX$V_KEY_COMPRJ) 
(.BKT_ADDREBKTSB_LEVEL] GTRU 0 
on .IDX_DFN CIDX$V_IDX_COMPR)) 
-(REC_ADDR + .RECORD_OVHD)<B,8> EQLU 0 
.REC_ADDR LSSA .INS_PNT 


THEN 
IRAB CIRBSL_LST_NCMP] = .REC_ADDR; 


END 
UNTIL .REC_ADDR + .NEW_REC_SZ GTRA .SPL_PNT; 


if the new record goes in the old bucket, make sure we are at 
least moving out enough records to make room for it. SIDRs and 
index records must be separately considered. 


In the case of SIDRs, it is guaranteed that the new record will 
be as small as possible, and if even one record is moved out of 
the old bucket there will be room for it. However, if a very 
small record is to be added, the possibility exists that by the 
time the bucket acgnnine loop is exited, there will be 
insufficient room for the new record. This is because while the 
small record size at the insertion point did not cause the split 
point to be exceeded, the very large record which follows did 
and if the split was made following the large record there would 
not be enough room in the old bucket for the new record. in this 
instance we still want to put the new record in the old (left) 
bucket, but we want to split at the point of inserting forcing 
the following big record to go in the new (right) bucket. 


in the case of index records, if we are not at the insertion 
oint then there must be room for the new records in the old 
ucket, otherwise, we would have exited the above loop while 
at the insertion point. if we are at the insertion point and 
there isn't room to insert new index records this can only be 
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4 ! because there has been a multibucket split requiring two new 


! keys to be inserted. in such a case, one will go in the old 
' bucket, and the other in the new index bucket, so nothing 
further need be done. 
IF .IRABCIRB$V_REC_W_LOJ 

(.E0B = .REC_ADDR) LSSU .NEW_REC_SZ 

(.REC_ADDR NEQA .INS_PNT) 

BEG! 


REC_ADDR = .LRA; 
RAB CIRBS$L_REC.COUNT] = .IRAB CIRBSL_REC_COUNT) - 1; 


! At this point, REC_ADDR is pointing to the place where RMS is 
going to split the bucket. 


| 
| 
| 
SPLLPNT = .REC_ADDR: 
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4 
5 
3 
5 ! If the point of insertion is at the end of the free-space of the 
2 bucket, then this is also where RMS will split the bucket. 
45 ELSE 
<2 SPL_PNT = .INS_PNT; 
45 IRAB pf eaet PL EOUNT = .IRAB CIRBSL_REC_COUNTI; 
re IRAB CIRB$L_REC_COUNT] = .SAVE_COUNT; 
46 END; 
46 
46 RETURN .SPL_PNT; 
46 END; 
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; Routine Size: 


RM3SIDXSP 
v0e=000 RMSEXT_HIGH_KEY 


SIDE EFFECTS: 
AP is trashed. 


RORINORY) — tt ts 
WN —OOOnNOUS WhO 


RMS.SRC 


: RLSLINKAGE NOVALUE = 


This routine extracts the high key from the bucket in IRB$L_CURBDB 


address of the bucket 
offset to first free byte in the bucket 
level of the bucket 


address of the index descriptor 

if set, index key compression is enabled 
if set, key compression is enabled 

size of the key 


address of te IFAB 
prologue version of the file 
size of a contigious keybuffer 


address of the IRAB 
address of BDB for current bucket 
address of contigious keybuffers 


address of last record in bucket with a zero 
front compressed key 


Keybuffer 2 has high key value of bucket. 


address of last record in the bucket 


: 1467 1 § 1 XSBTTL "RMSEXT_HIGH_KEY’ 

; 1468 : ROUTINE RMSEXT"HIGH-KEY 

i 1486 1381} pees 

; 147 13 § 1 | FUNCTIONAL DESCRIPTION: 
ae 

3 1475 13 : : and places it in keybuffer 2. 
: 477 1338 1 | CALLING SEQUENCE: 

; 1475 1346 RMSEXT_HIGH_KEY() 
+ 1481 1348 1 | INPUT PARAMETERS: 
ie = 

: 1484 1345 { IMPLICIT INPUT: 

+ 1486 1329 1 i BKT_ADDR 

: 1487 1548 1! BK T$W_FREESPACE 
: 1488 1549 1! BKTS$B~LEVEL 

: 1480 1DX_DEN 

> 1491 135¢ 1 i “1DX$V_IDX_COMPR 
: 149¢ 1553 1 | IDX$V"KEY~COMPR 
3 149 1554 1! IDX$B_KEYSZ 

S 1e98 1886] | AB 

+ 1496 1557 1: IFB$B_PLG_VER 
3 1497 1558 1! IF BSW_KBUF SZ 
) a 

+ 1500 1561 1! IRBSL_CURBDB 

; 1301 136¢ | IRBSL ~KEYBUF 

; 1208 1564 1! OUTPUT PARAMETERS: 
1808 1366 1 | an 

: 1306 1367 i IMPLICIT OUTPUT: 

: 1508 1569 1! IRBSL_LST_NCMP 

+ 1509 1570 1! 

: 15 1571 1! 

a Be 

; 13 1374 | REC_ADDR 

: 15 1376 1 | ROUTINE VALUE: 

: 15 1577 1: NONE 

: 15 1578 1! 

: 15 1579 1: 

: 15 1580 1: 

: 15 1581 1: 

> 15 1388 1 i 

: 15 138 1 i 

; 15 1584 2 
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BUILTIN 
AP; 

EXTERNA REGISTER 
R-IFAB_STR, 
R_IRAB_STR; 

GLOBAL REGISTER 
R_BKT_ADDR_STR, 
R7REC-ADDRSTR: 

2 
: 
4 
4 
4 
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zaroOor 


LOCAL 
£0B 
RECORD_OVHD; 


! Setup several variables inorder to be able to position to the last record 
with a key in the bucket. 


BKT_ADDR = .BBLOCKC. IRABCIRB$L_CURBDB], BDBS$L_ADDR); 
EOB"= .BKT_ADDR + .BKT_ADDRCBKTS$W_FREESPACE); 
REC_ADDR =".BKT_ADDR +~BKT$C_OVERADSZ; 


! The bucket is NOT a prologue 3 index bucket with non-compressed key 
' index records. In every situation but this one, the size of the records 
! in the bucket are variable, so in order to find the last record in the 
' bucket, the entire bucket must be scanned record-by-record. If the keys 
! of the records in the bucket are compressed, during this scan the address 
! of the last record with a zero-front compressed key is saved to be used in 
expanding the key of the Last record in the bucket. 
if NOT (. IFABCIFBSB_PLG_VER] GEQU PLGSC_VER_3 
Kt AOORURK TSS LEVELS NEQU 0 
NOT .IDX_DFNCIDX$V_IDX_COMPR]) 
THEN 
BEGIN 
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AL 
BUCKET_LEVEL; 


' Set BUCKET LEVEL to the index level, if the bucket is an index bucket; 
otherwise, set it to -1. 


IF (BUCKET_LEVEL = .BKT_ADDR(BKTSB_LEVEL]) EQLU 0 
| 
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mn 


seT-§ 


BUCKET_LEVEL = -1; 
Scan the bucket until the end of the bucket is encountered. 
WHILE 1 DO 
BEGIN 


LOCAL 
REC_SIZE; 
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V0e=000 RNSEXT_HIGH_KEY 1er8eb= 1938s 98:51 ia RMS. SRCIRM3S 1 DXSP.B32; 9 a) 
; 1581 1642 4 
3 i ¢ 1848 2 RECORD_OVHD = RMSREC_OVHD(.BUCKET_LEVEL; REC_SIZE); 
3: 1 1645 4 ! If the keys in this bucket are compressed, and the current 
; 1585 1968 4 ' record's key is zero front compressed, then save the address 
3 : ei ? of this record. 
5 1288 1848 2 IF .IFABCIFBSB_PLG_VER] GEQU PLGSC_VER_3 
: ! + 192) NOT (.BKT_ADDRCBKTS$B_LEVEL] EQLU 0 
s 38 1688 NOT .IDX_DFNCIDX$V_KEY_COMPR]) 
3; 159 1654 4 AN 
3; 1594 1655 4 -(.REC_ADDR + .RECORD_OVHD)<8,8> EQLU 0 
; 123? 1928 4 THEN 
; 1596 1657 4 IRABCIRBSL_LST_NCMP] = .REC_ADDR; 
3; 1597 1658 4 
3 1298 1923 ? If this is the last record in the bucket, exit the loop. 
: 1600 1661 4 IF (.REC_ADDR + .RECORD_OVHD + .REC_SIZE) GEQU .E0B 
: 1601 1996 4 
:; 160 16635 4 EXITLOOP 
; 160 1664 4 
3; 1604 1665 4 ' Else position to the next record and continue the scan. 
; 1605 1998 4 ! 
3; 1606 1667 4 ELSE 
: 1607 1668 4 REC_ADDR = .REC_ADDR + .RECORD_OVHD + .REC_SIZE; 
; 1608 1669 ND; 
3: 1609 1670 END 
: 1610 1671 ; 
; 1611 1676 ! The bucket is a prologue 3 index bucket ee eg hg oe bey 
3 lel¢ 167 ! index records. As the records are of fixed size, RMS is able to quickly 
3; 161 1674 ! position to the last record in the index bucket. 
3 1614 1675 ! 
3 1615 1676 ELSE 
: 1:8 1err REC_ADDR = .E0B - .IDX_DFNCIDX$B_KEYSZ); 
: 1618 1679 ! Having positioned to the last record in the bucket, RMS can extract its 
3 1919 1939 key into keybuffer 2, expanding it as is necessary. 
3: 1621 1oR¢ BEGIN 
3: 16 ; 168 
3: 16 1684 GLOBAL REGISTER 
3 1624 198? R_BDB, 
3: 1625 1686 “RAB, 
: 16 $ 1687 R_IMPURE; 
3; 16 1988 
3 1? : ts IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 
3; 16 1691 RMSMOVE (.1DX_DFNCIDX$B_KEYSZ], 
3 1631 169 -REC-ADDR + ,RECORD_OVHD, 
; 1632 169 KEYBOF _ADDR(2)) 
3 16 1694 ELSE 
3; 16 1695 4 BEGIN 
3; 1635 1696 4 AP = 0; 
: 1636 1697 4 RMSRECORD_KEY (KEYBUF_ADDR(2)); 
3; 163 1698 3 END; 
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; 16 1699 END; 
; 1838 13 0 
3; 1640 1701 RETURN; 
3: 1641 1702 END; 
3C 1C 
0B 1C 
0098 
54 
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RMS.SRC RMS SIDXSP.B32; 


(BKT_ADDR) 


. 2B(IDX_DFN), 5$ 
(BKT _ADDR), BUCKET LEVEL 


, BUCKET LEVEL 
sAEc-bono 
3(IFAB), 3 
(BKT_ADDR) 


8(1DX_DFN) 
RECORD POUHDIEREC: _ADDRI 


2 
C 
C_ADDR, 152(IRAB) 
ec OVHD REC_ADDR, R4 


ADDDA S&B | KS WHS BN BS OP SS DW FW 


R4, REC_ADDR 


Ret ABR, 6 REREC ADDR 
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g with the one corresponding 


Address of old buckets VBN free pointer 
Address of new buckets VBN free 
Number of bytes in these buckets 
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SAVE = .IRAB CIRBSL “pe (tt 

IRAB CIRBSL_REC_COUNT] = .IRAB CIRBSL_SPL_COUNTI; 

NEW_END = RASCNTRL_ADDR() + .BKT_ADDR CBKT$V_PTR_SZ] + 2; 
JRAS CIRB$SL_REC_COONT) = .SAVE; 


OLD_END = .BKT_ADDR + .OLD_FREE (0,0,16,0); 

SIZE = NEW END - .OLD_END; 

OLD_FREE (070,16,0] = TOLD_FREE (0,0,16,0] + .SIZE - 1; 
Finally get the destination address. 

DEST_ADDR = .NEW_FREE - .SIZE; 


CHSMOVE (.SIZE, .OLD_END, .DEST_ADDR); 
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a ne ce ee ee ee ee ce ee ee ee ce cc a ee ce ce ee ee ee ee ce ee ee oe ed ed 
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1 NEW_FREE (0,0,16,0] = .DEST_ADDR - .NEW_BKT; 
08 Move the PTR_SZ from the old bucket to the new bucket. 
05 NEW_BKT CBKT$V_PTR_SZ) = .BKT_ADDR CBKT$V_PTR_SZ); 
4 06 END; 


095C 8F BB 00000 RMSMOVE_VBNS: 
PUSHR 


#°M<R2,R3,R4,R5,R8,R11> 
AI DO 00004 MOVL 2(IRAB), RO 

AO p0 0008 MOVE 4(RO), BKT_ADDR 

A7 A 0000C MOVZBL 2C1DX_DFN), BKTSZ 
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700 60 NEW_END, ! Address of new end of old bucket's VBN chain 
0 61 OLD END, ! Address of old end of old bucket's VBN chain 
0 66 SIZE, ' Number of bytes to move : 
5 7 DEST_ADDR; ! Starting address of VBN chain in new bucket 
8 o? } First compute the number of bytes to move. 
0 67 BKT_ADDR = .BBLOCK C.IRAB CIRBSL_CURBDBI, BDBS$L_ADDRI; 
. os BKTSZ = .IDX_DFN CIDX$B_IDXBKTS27; 
70 BKTSZ = .BKTSZ * 512; 
7) OLD_FREE = .BKT_ADDR + .BKTSZ = BKTS$C_ENDOVHD; 
i NEWLFREE = .NEW_BKT + .BKTSZ = BKTSC_ENDOVHD; 
fe Now get the start and end of the VBN chain to move. 
, BEGIN 
i GLOBAL REGISTER 
R-IMPURE ; 
LOCAL 
SAVE; 
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1 ZSBTTL 'RMSSPLIT fR 
GLOBAL ROUTINE RMSSPLIT_EM : RLSRABREG_67 = 


144 


| 
FUNCTIONAL DESCRIPTION: 
Split the bucket in CURBDB into NXTBDB for SIDR data level and | 
any index level as close to 50-50 as possible. Records are moved 
into the new bucket, and the new record is inserted where Soprepr }ete: 
Keybuffer 2 contains the high a value of the left hand bucket after 
splitting. No buckets are actually written out in this routine, only 
the records are moved. 
CALLING SEQUENCE: 

RMSSPLIT_EM() 


INPUT PARAMETERS: 
NONE 


PASSAT SS 


2 III OOO 


PWN SO ODNAU EWN O ODNAOUES WN SH OCONAUE WN OOO 


IMPLICIT INPUTS: 


IDX_DFN = pointer to index descriptor for this key of reference 
IDX$B_KEYSZ = size of key 


WR OOCONAUE WN" QOWONOUS WN -O0OMW 


REC_ADDR = point in bucket where new record is to be inserted 


IRAB - petnger to internal rab structure 
IRB$V_REC_W_LO = 0 on input 
IRB$V_DUPS_SEEN - set if positioned after existing record to add 
sidr array entry 
IRB$L_LST_REC - address of be =. of record previous to one 
rec_addr is positioned to (used in conjunction with 


irb$v_dups_seen) s 
IRB$B_STOPLEVEL -"leveT at which insert is being done (non-zero 
this is primary ner only) 
IRB$L_CURBDB = bdb describing bucket to split (left hand bucket) 
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4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
5 
ree ; IRB$L_NXTBDB - bdb describing bucket to split into (right hand) 
788 7 IFAB - potatos to internal fab structure 
188 4 IFB$W_KBUFSZ - size of keybuffers 
791 50 Routines called by this routine will reference additional fields in 
792 51 the above structures. 
793 25 
794 5 OUTPUT PARAMETERS: 
795 54 NONE 
796 55 
44 2$ IMPLICIT OUTPUTS: 
799 58 a pew 2 (irb$l_keybuff + ifb$w_kbufsz) contains high | 
800 59 value of left hand bucket. 
801 60 
a6 61 ROUTINE VALUE: 
80 6¢ NONE 
804 6 


| 
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64 SIDE EFFECTS: | 

| 


0 


fo Jo Te) 
oo 
co 


ALL records in the mors bucket described by IRB$L_CURBDB 
and the new record are split between that bucket and the new 


} 

! 

i 

' 

senety? bucket described by IRBSL_NXTBDB. ot one record 

be created, else the entire record will be moved to the new bucket. 
; 

ie 


0 6 

: § occupies the entire bucket (curbdB) will a continuation record 
’ 4 ID's are reassigned in the new SIDR bucket as well. 

1 7 

1 7 ~ 

1 7 

} 4 BEGIN 

1 7 EXTERNAL REGISTER 

2 7 COMMON_RAB_STR, 

2 8 R_REC_ADOR STR, 

$ ; R_IDX_DFN_STR; 

2 LOCAL 

3 ; 

$ ; BEGIN ! block to Limit scope of following locals 
2 LOCAL 

; INS_PNT; 


Dh hh ttt et tet et het hat ah at at at at art at art are her er per er rer herr 4 
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8 
8 
8 
8 
8 
3 
3 9 GLOBAL REGISTER 
3 9 R_BKT_ADDR_STR; 
3 3 
; , EOB”-= .BKT_ADDR + .BKT_ADDR CBRT$W_FREESPACEJ; 
; 2 } First compute the split point. 
4 i INS_PNT = .REC_ADDR; 
4 0 REC_ADDR = RMSCOMP_SPL_PNT(.INS_PNT); 
0 ! If the split point ended up exactly where we wanted to insert the record 
of 3 } anyway we must investigate a Little further. 
84 0 if .REC_ADDR EQLA .INS_PNT 
84 07 TH 
84 08 IF NOT .IJRABCIRB$V_REC_W_LOJ 
85 09 THEN 
85 910 IF .BKT_ADDRCBKT$B_LEVEL) EQL 0 
85 911 AN 
85 31g - IRABCIRB$V_DUPS_SEEN] 
i Ht = 
85 915 ! This is a continuation record being added to the end of 
$22 aig } an existing record so keep it with the low set. 
859 918 if .REC_ADDR NEQA .E0B 
860 919 HEN 
861 920 IRABCIRB$V_REC_W_LO! = 1 


| 
| 
BKT_ADDR = ,BBLOCKC.IRABCIRB$L_CURBDB], BDBSL_ADDR]; 
| 
| 
| 
| 
| 
| 
| 
| 
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; 186 1921 

; 186 19 ¢ ! RMS is trying to insert a continuation record at the end 

; 1864 19 : Of the bucket. Unless the existing record occupies the 
; 1865 1924 ' entire bucket RMS will move the entire record into the new 
; 1866 1925 ' bucket and add the continuation record there. 

; 1867 1926 : | 
; 1868 1927 ELSE 
: 1869 1928 4 BEGIN 

; 1870 1929 4 
; 1871 1930 4 ! RMS is going to back up the split point to the 

: \or¢ 1931 4 : et Boab of this record so that it does not create a 

; 187 19 ¢ 4 ! continuation bucket, but force the whole thing 
: 1874 19 4 ' into the new bucket 

: 1875 1934 4 ' 

: 1876 1935 4 IF .IRABCIRBSL_LST_REC] NEQA .BKT_ADDR + BKT$C_OVERHDSZ 

: 1877 1936 4 THEN 

: 1878 1937 4 REC_ADDR = .IRABCIRBSL_LST_RECI 

:; 1879 1338 4 

; 1880 1939 4 ! The existing record that RMS is positioned at the end 

; 1881 1940 4 ! of occupies the entire bucket, therefore RMS is forced 

; 1882 1941 4 ! to make the new record anew in the new bucket, causing a 

>; 1883 Hb od 4 ' continuation bucket. This is the only time RMS will 
; 1884 1943 4 ' ever create a continuation bucket at the SIDR data level 

3; 1885 1944 & ! and it is done with ers reluctance. Clearing DUPS_SEEN 

: 1886 1945 4 !' will cause the record size to be correct when it is 

3; 1887 1946 4 ' recalculated Later. 
; 1888 1947 4 : 
: 1889 1948 4 ELSE | 
; 1890 1949 5 BEGIN 
: 1891 1950 5 IRABCIRB$L_LST_REC) = .INS_PNT; 

: 1892 1951 5 IRABCIRB$V_DUPS_SEEN) = 0; 

; 1893 1926 5 IRABCIRB$V_CONT_BKT] = 1; 

: 1894 1953 4 END; 

: 1895 1954 4 

; 1896 1955 3 END; | 
3; 1897 1956 3 , 2 . 

3 1298 ieee 3 Now set up things as offsets to simplify Life later on. | 
; 1900 1959 : IRABCIRB$W_POS_INS) = .INS_PNT = .BKT_ADOR; 

; 128) 1369 3 IRABCIRB$W_SPLIT] = .REC_ADDR - .BKT_ADDR; 

: 1908 1366 ! Adjust the freespace pointer for the old (left) bucket to reflect | 
3 1904 196 ! its new size. 

3 1905 1964 i 
3: 1906 1965 BKT spent en rey Smeg space) = , TRABCIRB$W_SPLITI; 
: 1907 1966 3 IRABCIRBSL_LST_REC) = .JRABCIRBSL_LST_RECJ - .BKT_ADDR; 

3 1308 st 2 END; '“of block defining INS_PNT, BKT_ADDR 
: 1910 1969 ! RMS moves everything beyond the split point into the new bucket | 
3 Hb ay 1300 without caring where the new record or records are going to go. 
3 H 
: 1913 1376 BEGIN 
3 1914 197 
3: 1915 1974 OCAL 
3; 1916 1975 COMPRESSION 
> 1917 197% NEW_BKT : REF BBLOCK; | 
3; 1918 197 
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H 1333 1378 COMPRESSION = 0; 

: 12 1 1339 NEW_BKT = .BBLOCKC.IRABCIRBSL_NXTBDBJ], BOBSL_ADDRI; 

3; 19 : 1980 ! If there is anything at all to move into the new bucket, RMS knows 

3; 1924 19 ! to move it without any regard as to where the new record or records will 
3 13 2 13ee be inserted. 

3; 1927 1356 IF (NEW _BKTCBKTSW_FREESPACE] = .EOB - .REC_ADDR) NEQU 0 

: 1928 198 THEN 

3; 1929 1358 4 BEGIN 

; 1950 1989 4 

: 1931 1990 4 OCAL 

3 1336 1991 4 REC_FROM : REF BBLOCK, 

3; 19 1936 4 REC_TO : REF BBLOCK, 

: 1934 1993 4 RECORD_OVHD, 

: 1935 1994 4 LENGTH; 

: 1936 1995 4 

3; 1937 1996 4 REC_FROM = .REC_ADDR; 

; 1938 1997 4 REC-TO = .NEW_BKT~+ BKTS$C_OVERHDSZ; 

3 1378 1238 ? LENGTH = .NEW_BKTCBKTS$W_FREESPACE); 

; 1941 2000 4 ! Determine the number of bytes of record overhead for the current 

3 Mb 2001 4 ' record. This record will become the first record in the new bucket. 
3; 194 $008 4 ! 

3 1944 $00 5 BEGIN 

3: 1945 $° 4 5 

3; 1946 005 5 LOCAL 

: 1947 2006 5 REC_SIZE; 

3 1948 2007 5 

3; 1949 2008 5 IF (REC_SIZE = .NEW_BKTCBKT$B_LEVEL]) EQLU 0 

3 1320 2009 5 

: 1951 2010 5 REC_SIZE = -1; 

3 1326 2011 5 

3; 195 44 5 RECORD_OVHD = RMSREC_OVHD(.REC_SIZE); 

3: 1954 2013 4 END; 

3; 1955 2014 4 

3: 1956 2015 4 ! If this is a prologue 3 bucket with compressed keys, and if the key 
3 1957 2016 4 ! of the record which is to be the first record in the new bucket is 
; 1958 2017 4 ! not zero front compressed, RMS constructs the contents of the new 
3; 1959 2018 4 ' bucket in two steps. First, RMS moves in the new low order key front 
; 1960 2019 4 ! expanding and rear-end recompressing as required. Finally, the 

: 1961 2020 4 ! remainder of the contents of the new index/SIDR bucket is moved into 
3 1306 $05} 4 ' the new bucket. 

: 196 0 ¢ 4 ! 

3 1964 202 6 IF ((.NEW_BKTCBKT$B_LEVEL] EQLU 0 

3: 1965 ost 6 

: 1966 025 6 - IDX_DFNCIDXSV_KEY_COMPR}) 

3: 1967 ps6 5 OR 

: 1968 027 6 (.NEW_BKTCBKT$B_LEVEL] NEQU 0 

$ Hb 14 028 g N 

3 1970 029 .IDX_DFN CIOX$V_IDX_COMPR])) 

3; 1971 030 4 AND 

3 1978 031 5 (.(.REC_ADDR + .RECORD_OVHD)<8,8> GTRU 0) 

3; 197 0 ¢ 4 THEN 

3 1974 0 2 BEGIN 

3; 1975 034 
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BUILTIN 
AP; 


LOCAL 
SAVE_LST_NCMP, 
SAVE ~REC-ADDR: 


GLOBAL REGISTER 
R-BKT_ADDR; 


! If the record which is to be the first record in the new bucket 
! has any overhead associated with it, move the overhead into the 
' new bucket, and then position past it to the key of the record. 
! Also, position in the new bucket to the first byte past the 

' record overhead just moved into it. 


' 

! 

' 

' 

! 

i 

if .RECORD_OVHD GTRU 0 

THEN 

RMSMOVE (RECORD OVHD, -REC_ADDR, .REC_10):; 


“ADDR ADDR + .RECORD,OVHD 


! Move the key which is to be the low-order ey in the new bucket 
! from its current position in the old (left) bucket to its 
! position as the first rie in the new bucket leaving room 

for the record overhead bytes (in the case of SIDRs) and the key 
compression overhead bytes. 
AP = 1; 
RMSRECORD_KEY (.REC_TO + 2); 


: Determine the compression of the low-order key of the new bucket. 
! This key must be and will be zero-front compressed, but it will 
: be rear-end truncated if possible. 


SAVE_REC_ADDR = .REC_ADDR; 
REC_ADDR™= .REC_TO -~.RECORD_OVHD; 


SAVE_LST_NCMP = .IRABLIRBSL_LST_NCMP); 
TRABCIRBSL_LST_NCMP] = .REC-ADDR; 


BKT_ADDR = .NEW_BKT; 
RMSCOMPRESS_KEY (.REC_TO); 


IRABCIRBSL_LST_NCMP] = .SAVE_LST_NCMP; 
REC_ADDR =~. SAVE_REC_ADDR; 


Adjust the freespace offset of the new bucket to reflect the 
difference between the key size of the low-order key in its 

new position (as low-order a | of the new bucket), and the hey 

!' size of the low-order key in its old position (as a key somewhere 
in the old bucket). 


COMPRESSION = .REC_ADDRCKEY_LEN) - .REC_TOCKEY_LEN); 
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position as low order key of the new bucket must be saved (and 

already has as the value in COMPRESSION). It will be used in 

foconeut 'o8 the point of insertion of the new record to be 
inserted if it is to go in the new bucket. If the new record is 
to be inserted as the very first record in the new bucket then 
this difference is not taken into account in the recomputation 
of the point of insertion, and so COMPRESSION is reset to 0. 


033 09 
: 2 Sor NEW_BKTCBKT$SW_FREESPACE) = .NEW_BKTCBKTSW_FREESPACE] - .COMPRESSION; 
0 § 83? ' If a SIDR bucket split occurred, odivet the record size field 
0 89 ! of the SIDR that becomes the first SIDR in the new bucket, (the 
038 09 ! SIDR whose key was just front expanded), to reflect the difference 
039 098 ' between the Roy size of the first SIDR in the new bucket, and the 
040 099 i key size of this SIDR in its old position in the old bucket | 
‘ed (before the split took place). 
nk: if .NEW_BKTCBKTSB_LEVEL] EQLU 0 | 
044 THEN 
045 (.REC_TO = IRCSC_DATSZFLD)<0,16> = 
046 »(.REC_TO = IRCSC_DATSZFLD)<0,16> = .COMPRESSION; 
048 If the new record is not to be inserted as the very first 
049 record in the new bucket, then the difference between the low 

? order key in its old position in the old bucket and its new 

4 

5 

6 

7 

8 

9 


Sooooooo0oo 
DADA 
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(, IRABLIRB$W_POS_INS] EQLU .IRABLIRB$W_SPLITJ) | 
COMPRESSION = 0; 


Having completed part 1 of the construction of the new bucket 
(movement and recompression of the new bucket'’s low order key) 

set up to remove the remainder of the old bucket which is to be 
moved into the new bucket. This will include the SIDR array of the 
the new bucket's first record, if the split being processed is a 
SIDR bucket split. 


F 
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07 LENGTH = .LENGTH - .RECORD_OVHD -.REC_ADDRIKEY_LEN] - 2; 
07 REC_FROM = .REC_ADDR + REE ADDACEGY CEN) + 2; 
y? ReC_TO = .REC_TO + .REC_TOCREY_LEN) # 2; 
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1 Move those records (and record parts if this is a SIDR bucket split) 
remaining to be moved from the old to the new bucket. Note that this 
may include the first record of the new bucket (in those cases not 
requecioe recomputation of the compression of the new low order key), 
and will include the VBNs for non-prologue 3 index and SIDR buckets, 
and prologue 3 SIDR buckets. 


FEALENGTH GTR 0 | 
ae CHSMOVE (LENGTH, .KEC_FROM, .REC_TO); 


ed ee a ee et tt 


NEW_BKTCBKTS$W_FREESPACE) = .NEW_BKTCBKTSW_FREESPACE] + BKTSC_OVERHDSZ; 
! The VBN chain will have to be separately moved if this is a prolgoue 3 


: 
: 
: 
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xXSP.B 
index bucket. 
iF .1FAB CIFBSB_PLG_VER] GEQU PLGSC_VER_3 | 
.NEW_BKTCBKTSB_LEVEL] GTRU 0 | 
RMSMOVE _VBNS(.NEW_BKT); 
If this is a level 0 bucket (SIDR data level) RMS must now reassign the 
ID's of the records we moved out. This reassigning is only required for 
oreipeue 1 and 2 SIDR buckets, because prologue 3 SIDRs do not contain 


ee ee ee 


F (NEW _BKTCBKTSB_LEVELI EQL 0) 
wey’ JF ABCIFBSB_PLG_VERI LSSU PLGSC_VER_3) 


BEGIN 
LOCAL 
EOB, 
1D; 
d= 1; 
EC_ADDR = .NEW_BKT + BKTS$C_OVERHDSZ; 
OB™= .NEW_BKT + .NEW_BKTCBRTS$W_FREESPACE); 


I 
R 
E 
Reassign IDs to all the records in the prologue 2 SIDR bucket. 
WHILE .REC_ADDR LSSA .£0B 

BEGIN 

Reassign the ID in the new bucket. 

REC_ADDRCIRC$B_IDJ = .1D; 


1 
1 
1 
1 
1 
1 
1 
I = .ID + 

1 RMSGETNEXT_REC(); 
1 END; 


Update the next ID field in bucket header. 
NEW_BKTCBKTSB_NXTRECID] = .1D 
END; 
! Now set up NEW_BKT and REC_ADDR to point to the buffer and position of 
insert for the new record. 


if .IRABCIRB$V_REC_W_LOJ 
THEN 


! Since IRABCIRB$V_REC_W_LOJ is set, the new record will be inserted 
} into the old bucket. 
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BEGIN 
NEW_BKT = .BBLOCKC.IRABLIRB$L_CURBDB], BDBSL_ADDR); 


: 
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If this is an index bucket solic and the point of insertion is 
exactly the same as the split point. then two calls to RMSINS REC 
are required. The first pass will be to update the contents of the 
(Left) index bucket, as are required by the particular split case. 
The second call will be to update the contents of the new (right) 
index bucket as is required by the particular split case. 


F (NEW BKTCBKTSB_LEVEL] NEQ 0) 
yo LRABCIRGSU_POS_ INS] + .NEW_BKT EQLA .REC_ADDR) 


CoCo 
OOONO 


ee me me me mem 


THE 
BEGIN 
GLOBAL REGISTER 
R_BKT_ADDR; 
IRABCIRBSV_SPL_IDX] = 1; 
First, the updating of the old (left) index bucket is done. This 


| 
| 
| 
will involve the insertion of a new key as the high key in the 
bucket with its downpointer (pointing to the leftmost data 


WN "OC OODNOULS WN —OV0OO~n 


' bucket) left uneyenged. However, if a two-pass two-bucket with 
empty bucket split had taken place, then as there is no need to 
update the old (left) index bucket, nothing is done. 


' 

i 

i 

i 

i] 

i 

i 

! There is one special case which is entirely handled by the 
' Lower level routines. If only two keys fit in an index 

' bucket, a multibucket split occurs, and both keys proceed 
' the lower order key, then both new keys must be put in 

! the old bucket instead of putting one in the old and the 
other in the new index bucket. 

I 


F NOT (. JRABLIRB$V_EMPTY_BKTJ 
NOT .JRABCIRB$V_B1G_SPLIT)) 
THEN 


BKT_ADDR = .NEW BKT; 
IF NOT RMSINS_REC(.NEW_BKT, RMSRECORD_SIZE()) 
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BUG_CHECK; 
: $ ND; 
9 8 ' Finally, update the new (right) index bucket. This is done 
90 49 ! by clearing IRABCIRBSL_VBN_ LEFT] and IRABLCIRBSV_SPL_IDX] 
91 50 ' as a signal that only &@ VBR should be swung and in’the 
4 51 ' case of a multi-bucket non-empty bucket sp it, only a single 
4, 26 key and VBN pair should be inserted into the new bucket. 
95 54 ' If this is the two-pass two-bucket enpty bucket opt it case then 
96 55 ! this will be RMS's first and only call to RMSINS_REC. In such a 
97 2$ ' case we do not clear IRB$V_VBN_LEFT since we still have to 
98 5 ' compare its contents to the downpointer of the first record 
99 28 in the new (right) index bucket. | 
of 60 if NOT (. JRABCIRBSV_EMPTY_BKT) 
88 62 


NOT .IJRABCIRB$V_B1G_SPLITJ) | 
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7 
; 2204 63 THEN 3 
: 05 ee IRABCIRBSL_VBN_LEFT] = 0; | : 
; 07 6 IRABCIRBSV_SPL_IDX] = 0; | ; 
; 2208 6 IRABLIRBSL_REC_COUNT] = 0; 3 
: 3209 68 NEW_BKT = TBBLOCKC. IRABCIRBSL_NXTBDBJ, BDBSL_ADDRI; | ; 
: 2011 0 ! If this is a multi-bucket split then we may have to insert a : 
; \§ 71 ! new index record into the new (right) index bucket. This will $ 
3; 221 7 ! require adjustment of several IRAB cells for the second call ; 
: 1¢ 6, } to RMSINS_REC. : 
: 18 75 if .IRABCIRB$V_BIG_SPLITJ ; 
; 1s f THEN : 
> 2219 78 5 ! If this is the special multi-bucket split case which requires ; 
; 2220 79 «5 ! both new keys to go in the old (left) bucket, or if this is $ 
: 2221 80 5 ' the two-pass multi-bucket with empty bucket split case, then 3 
3 $5§ 81 5 ! we just clear IRABCIRBSL_VBN_MIDJ as a signal that just the : 
: s$i Ht 2 VBN pointer need be swung. : 
; 3295 see i if ((, IRABCIRBSW_POS_INS] EQLA BKT$C_OVERHDSZ) 3 
; 58 286 : . IRABCIRBSV_EMPTY_BKT)) : 
3; 2228 287 : 
: $$9 $38 5 IRABCIRB$L_VBN_MID] = 0 : 
> 2231 $3 2 ! If there is a new index record to be inserted into the new : 
3 $Se6 291 5 ! index bucket during the second call to RMSINS_REC, then 3 
3; 223 $36 5 ! adjust the pointer to the last noncompressed Key to be the 3 
3: 2234 293 «(5 ! first record in the new (right) index bucket. 3 
3; 2235 294 5 ! 3 
3; 2236 295 5 ELSE 3 
; 9237 2296 3 IF .IDX_DFNCIDX$V_IDX_COMPRI ; 
: 2259 2298 3 IRABLIRBSL_LST_NCMP] = .NEW_BKT + BKTSC_OVERHDSZ; 3 
5 2241 $30 5 ! Make sure that the peeve ses of insertion of the new index records : 
3 stg 301 5 ! (or position of replacement of the new VBNs if the VBN is just | F 
3; 224 $08 2 ! to be swung) is at the first record of the new (right) index 3 
3 2244 230 ' bucket. 3 
> 2245 304 5 i | ; 
; 46 305 5 IRABLIRB$W_POS_INS] = BKTSC_OVERHDSZ; 7 : 
: $¢ 306 4 END; : Of BKT_ADDR definition : 
3: 2248 07 4 3 
3: 2249 308 4 END 3 
3 $20 310 ELSE : 
: 352 i ! If the record goes into the new bucket then adjust the offsets so : 
3 27 \ that things come out right Later. : 
; 35 1% 4 BEGIN ; 
; 25 1 4 ! The only time it is not necessary to adjust the variable containing : 
3; 2258 17 4 ! the address of the preceeding record by the number of bytes the first $ 
; $525 $15 4 ' record in the new bucket was front compressed is when the new record : 
3; 2260 19 4 ! is a duplicate SIDR (ie the SIDR itself is the preceeding record), | : 


M14 
RM3SIDXSP 16-Sep-1984 01:5 AX-11 Bliss-32 V4.0-74 
VOe-000 RMSSPLIT_EM 12-88-1382 96:91 :2 RMS SREIRA S1oxSP B3509 
61 4 ! SIDR key compresion is enabled, and the SIDR occupies the first 
record position in the new bucket. 


o 
wr 


if NOT (. IRABLIRBSV DUPS_SEENJ 
+ 1DX_DFNCIDXSV,KEY_ COMPRI 
cea . IRABCIRBSL_LST_REC] EQLA .IRABCIRBS$W_SPLITJ) 
IRABLIRBSL_LST_REC] = .IRABCIRBSL_LST_REC] - . COMPRESSION; 
IRABCIRBS$W_POS_INS] = .IRABLIRBSW_POS_INS] = .IRABCIRBS$W_SPLITI 
+ BKT$C_OVERHDSZ 
- . COMPRESSION; 


IRABCIRBSL_LST_REC] = .IRABCIRBSL_LST_REC] - .IRABCIRBSW_SPLITI 
+ BKTSC_OVERHDSZ; 


OO ieee CIFBSB_PLG_VER] GEQU PLGS$C_VER_3 


BEGIN 
IRAB CIRBSL_REC_COUNT] = .IRAB CIRBSL_REC_COUNT) 
- .IRAB CIRBS$L_SPL_COUNT); 


! If the record to be inserted is to go in the new bucket, 

' and the Last noncompressed key remains in the old bucket 

! or would follow the new record to be inserted, change this 

pointer so that it points to the first record in the new bucket. 

if ((.NEW_BKTCBKT$B_LEVEL] EQLU 0 
a . 1DX_DFNCIDX$V_KEY_COMPR]) 
(.NEW_BKTCBKTSB_LEVEL] NEQU 0 

_ - IDX_DFNCIDX$V_IDX_COMPR]J)) 
NOT (.JRABCIRBSL_LST_NCMP] GEQU .NEW_BKT 
re - IRABCIRBSL_LST_NCMPJ] LSSU .NEW_BKT + .IRABCIRBS$W_POS_INSJ) 


N 
- IRABCIRBSL_LST_NCMP) = .NEW_BKT + BKTSC_OVERHDSZ; 
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rt: END; 
6 IRABCIRBSL_LST_REC) = ag Hy eer REC] + .NEW_BKT; 
tf REC_ADDR =". IRABCIRBSW_POS_INS) +~.NEQ_BKT; 
69 ! Call spread and insert appropriate record routine. The only possible error 
311 70 ! from this routine is a scarcity of ID's in the case of prologue 1 or 
1 4 and that is a bug here. 
14 18 BEGIN 
15 74 
316 75 GLOBAL REGISTER 
317 76 R_BKT_ADDR; 


<z 


anes xSP 1B-bep-1984 96:81:23 AX=-11 Bliss-32 V4.0-74 Page 48 


<n 


RMSSPLIT_EM RMS .SRCIRMSSIDXSP.832; (6) 
; 231 77 4 
: i 4: ? BKT_ADDR = .NEW_BKT; 
; $1 4 IF NOT RMSINS_REC(.NEW_BKT, RMSRECORD_SIZE()) | 
; 4 BUG_CHECK; 
; 4 58 4 J 
: 5 ¢ END; ! Of bkt_addr definition 
; ; Bg END; 
; 9 88 ! Position to Last record in left bucket and put key into keybuff 
, , 34 : for index update. i ee Pe er. ee ere 
; 91 RMSEXT _HIGH_KEY(); 
: 338 3 RMSSUC™ (SUCT 
3s es 93 1 END; 


-EXTRN RMSBUG3 
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3C BB 00000 RMSSPLIT EN: 
Pus #*M<R2,R3,R4,R5> : 1808 
SE 18 C2 0000 sat #24, § ; 
50 20 Ad DO 0000 MOVIL 32(fRAB), RO + 1894 
55 18 AO b0 00009 MOVL 24(R RO). BKT_ADDR : 
52 04 AS 3C 0000D MOVZWL 4(BKT ADDR) EOB + 1895 
3¢ 55 CO 00011 ADDL2 BKT_A £08 : 
5 36 DO 00014 MOVL REC =ADDR: INS_PNT : 1899 
51 4 20 00017 MOVL =‘ INS~P : 1901 
FD7E 30 OOOIA BSBW = RMS Seon SPL_PNT : 
56 50 00 0001D MOVL RO : 
53 56 D1 00020 CMPL ~—s REC ADDR. INS_PNT + 1906 | 
36 12 00023 BNEQ § : 
50 44 AD YE 00025 MOVAB 68(IRAB), RO : 1908 
2E 60 03 £0 00029 BBS #3, ( : 
0c a5 95 00020 TSTB =: 12 (BKT_ADDR) : 1910 
29 Ne 000 BNEQ © 3$ ; 
60 9 900 2 TSTB = (RO > 1912 ; 
¢5 18 000 BGEQ 46s 3$ : : 
6 D1 00036 CMPL § REC_ADDR, EOB : 1918 ; 
05 13 000 BEQL sé : 3 
08 i) 0038 BISB2 #8, (RO) : 1920) ; 
18 1 000 : BRB 3$ : : 
OE AS 9E 00040 1$: MOVAB 14(R5), R1 + 1935 ; 
4C Ad D1 00044 CMPL * joames R1 ; ; 
06 13 0048 BEQL es : : 
4C AY DO 0004A MOVL 6(IRAB), REC_ADDR : 1937 F 
: 11 00 af BRB 3$ F 3 
DO 0 50 2$: MOVL. IN Pht 76(1RAB) : 1950 : 
80 BF Bh 54 BICB2 #128 “ (Ro) : 1951 ; 
19 098 BISBO #16, : 1932 ; 
> A 5B 3S: SUBW BKT ADDR. INS_PNT "ait : 195 ‘ 
5 a3 0006 SUBW3 eK! ADDR, REC CPADDR. 4(1RAB) : 1960 ‘ 
4A AD B B26 MOVW 4(TRAB), 4(BRT_A : 1965 : 
55 C2 0006A SUBL2 BKT_ADDR. 4 (BRT ADD > 1966 : 
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15 
RM3SIDXSP 1besep-1 9 1:5 AX-11 Bliss-32 V4.0-742 p 52. RW 
yozs000 RMSSPLIT_EM 1orep-13be 98581528 FANS Bhs c72 Ms 03548 age 35 V 
0098 C9 6 OE C1 BC 32$: ADDL3) #14, NEW 152(IRAB) : 2361 : 
4C af oF c0 C3 gf: ADL NEW BKT ane 748 : 2360 ; 
26 48 OA ¢ MOVZWL 72(TRABS, REC_ADDR : 236 : 
: 6— C CA DL2 NEW_BKT, R ¢ _ADDR : ; 
5 F p CD VL NEW BKT, BKT-ADDR : 2378 3 
00006 D BW  RMSRECORD_SIZE + 2380 : 
0 DD 002d PUSHL RO : : 
04 AE bp D PUSHL : ; 
00006 30 00208 BSBW RMSTNS. REC : ; 
5E 08 CO 00208 ADDL2 #8, SP : : 
0 0 DE BLBS RO, 34$ : ; 
00006 0 E BSBW = RM$BUG3 : 3381 ; 
FCOA E4 34$: BSBW RMSEXT_HIGH_KEY + 2391 ; 
50 01 DO 002E7 MOVL #1, RO + 2393 F 
5E 18 CO OO2EA ADDL2 #24, SP : ; 
3C BA 002ED POPR #*M<R2,R3,R4,R5> : : 
05 OO2EF RSB : ; 
; Routine Size: 752 bytes, Routine Base: RM$RMS3 + 0265 ; 
: 2335 2394 1 ; 
3; 2336 2395 1 END 3 
3 2337 2396 1 | ; 
: 2338 2397 0 ELUDOM | : 
| ; 
| 
; PSECT SUMMARY | 
; Name Bytes Attributes : 
: RMSRMS3 1365 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) | : 
; Library Statistics : 
Re toa ogee ek = BO rr) oe ee Symbols =------- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
$ _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 64 2 154 00:00.4 | : 
Pooh 
} ° 
: COMMAND QUALIFIERS | : 
¢ 
; 
| 
} 
} 
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RM3SIDXSP -Sep-1984 02:01: - ~ .0- 
iste 4 RMSSPLIT_EN 16-Sep-1984 02:01:53  VAX=11 Bliss-32 V4.0-742 Page 53 


Size: 1365 0:38: + 0 data bytes 
Run “Time 
Elapsed. Tine: 
Lines/CPU Min 3? 60" 
Lexenes/CPU-Min: 136 
poaeey Used: 268 pages 
Compilation Complete 
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